Correct the comparison of two files. Just because they are the same

size doesn't mean they have the same content.
This commit is contained in:
Bill Medland 2002-06-21 20:10:56 +00:00 committed by Alexandre Julliard
parent 07db325edb
commit 6a948491e8
1 changed files with 1 additions and 14 deletions

View File

@ -38,7 +38,7 @@ test_regedit();
# }
#}
# Checks if the files are equal regardless of the encoding.
# Checks if the files are equal regardless of the end-of-line encoding.
# Returns 0 if the files are different, otherwise returns 1
# params - list of file names
sub files_are_equal
@ -48,19 +48,6 @@ sub files_are_equal
die "At least 2 file names expected" unless ($#file_names);
#compare the files sizes
my $sizes_are_equal = 1;
foreach my $file_name (@file_names)
{
-e $file_name || die "Error! File $file_name does not exist";
if (-s $file_names[0] != -s $file_name)
{
$sizes_are_equal = 0;
last;
}
}
return 1 if $sizes_are_equal;
#compare file contents
foreach my $file_name (@file_names)
{