sub readResultsFile($)
{
my ($filename) = @_;
- open FILE, "<${filename}";
+ open FILE, "<", $filename or die;
my $foundStart = 0;
my $foundEnd = 0;
my $result = "";
sub dumpToFile($$)
{
my ($contents, $path) = @_;
- open FILE, ">$path";
+ open FILE, ">", $path or die;
print FILE $contents;
close FILE;
}
dumpToFile($output, "tmp/sunspider-comparison-data.js");
system("$jsShellPath", "-f", "tmp/sunspider-test-prefix.js", "-f", "tmp/sunspider-comparison-data.js", "-f", "resources/sunspider-compare-results.js");
-
-