{
my $fh;
open ($fh, "<README") or print "not ";
+ binmode($fh);
print "not " unless compare($fh,"README") == 0;
print "ok 9\n";
close $fh;
{
my $fh;
open ($fh, "<README") or print "not ";
+ binmode($fh);
print "not " unless compare_text($fh,"TEST") == 1;
print "ok 10\n";
close $fh;
local $/; #slurp
my $fh;
open($fh,'README');
+ binmode($fh);
my $data = <$fh>;
print $tfh $data;
close($fh);
}
seek($tfh,0,0);
- $donetests[0] = compare($tfh,'README');
- $donetests[1] = compare("$filename",'README');
+ $donetests[0] = compare($tfh, 'README');
+ $donetests[1] = compare($filename, 'README');
unlink0($tfh,$filename);
};
print "# problems when testing with a tempory file\n" if $@;