ReceiveTempSMS
/
Sweden-Number
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

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
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
programs/regedit/tests/regedit.pl
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 # Returns 0 if the files are different, otherwise returns 1
# params - list of file names # params - list of file names
sub files_are_equal sub files_are_equal
@ -48,19 +48,6 @@ sub files_are_equal
die "At least 2 file names expected" unless ($#file_names); 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 #compare file contents
foreach my $file_name (@file_names) foreach my $file_name (@file_names)
{ {