Skip to content
Projects
Groups
Snippets
Help
This project
Loading...
Sign in / Register
Toggle navigation
W
wine-cw
Project
Project
Details
Activity
Cycle Analytics
Repository
Repository
Files
Commits
Branches
Tags
Contributors
Graph
Compare
Charts
Issues
0
Issues
0
List
Board
Labels
Milestones
Merge Requests
0
Merge Requests
0
CI / CD
CI / CD
Pipelines
Jobs
Schedules
Charts
Registry
Registry
Wiki
Wiki
Snippets
Snippets
Members
Members
Collapse sidebar
Close sidebar
Activity
Graph
Charts
Create a new issue
Jobs
Commits
Issue Boards
Open sidebar
wine
wine-cw
Commits
6a948491
Commit
6a948491
authored
Jun 21, 2002
by
Bill Medland
Committed by
Alexandre Julliard
Jun 21, 2002
Browse files
Options
Browse Files
Download
Email Patches
Plain Diff
Correct the comparison of two files. Just because they are the same
size doesn't mean they have the same content.
parent
07db325e
Hide whitespace changes
Inline
Side-by-side
Showing
1 changed file
with
1 addition
and
14 deletions
+1
-14
regedit.pl
programs/regedit/tests/regedit.pl
+1
-14
No files found.
programs/regedit/tests/regedit.pl
View file @
6a948491
...
@@ -38,7 +38,7 @@ test_regedit();
...
@@ -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 en
d-of-line en
coding.
# 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
...
@@ -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
)
{
{
...
...
Write
Preview
Markdown
is supported
0%
Try again
or
attach a new file
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment