diff options
| -rw-r--r-- | selftest/Subunit/Diff.pm | 2 | ||||
| -rwxr-xr-x | selftest/diff-subunit.pl | 2 |
2 files changed, 2 insertions, 2 deletions
diff --git a/selftest/Subunit/Diff.pm b/selftest/Subunit/Diff.pm index 5c9e4f0de0..de251b37b3 100644 --- a/selftest/Subunit/Diff.pm +++ b/selftest/Subunit/Diff.pm @@ -58,7 +58,7 @@ sub from_file($) my $ret = new Subunit::Diff(); open(IN, $path) or return; - parse_results($ret, $statistics, IN); + parse_results($ret, $statistics, *IN); close(IN); return $ret; } diff --git a/selftest/diff-subunit.pl b/selftest/diff-subunit.pl index 280021ccc4..fc80c371f8 100755 --- a/selftest/diff-subunit.pl +++ b/selftest/diff-subunit.pl @@ -14,7 +14,7 @@ my $new = Subunit::Diff::from_file($ARGV[1]); my $ret = Subunit::Diff::diff($old, $new); -foreach my $e (keys %$ret) { +foreach my $e (sort(keys %$ret)) { printf "%s: %s -> %s\n", $e, $ret->{$e}[0], $ret->{$e}[1]; } |