subunit: Sort diff output.
[ira/wip.git] / selftest / Subunit / Diff.pm
index 5c9e4f0de05b41690f00ae2c21220399f155f10f..de251b37b3e9ad163f278ffcec90286583d80c00 100644 (file)
@@ -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;
 }