diff options
Diffstat (limited to 'Master/tlpkg')
-rwxr-xr-x | Master/tlpkg/bin/cmp-textfiles | 6 |
1 files changed, 6 insertions, 0 deletions
diff --git a/Master/tlpkg/bin/cmp-textfiles b/Master/tlpkg/bin/cmp-textfiles index 439fa1c0f28..bfa347a7138 100755 --- a/Master/tlpkg/bin/cmp-textfiles +++ b/Master/tlpkg/bin/cmp-textfiles @@ -19,6 +19,8 @@ END_USAGE my $file1 = &read_file ($ARGV[0]); my $file2 = &read_file ($ARGV[1]); + warn "($ARGV[0])\n$file1!!!\n"; + warn "($ARGV[1])\n$file2===\n"; return $file1 eq $file2 ? 0 : 1; } @@ -41,5 +43,9 @@ sub read_file } close (FILE) || warn "close($fname) failed: $!"; + # if the file did not have a trailing newline, add one for purposes of + # comparison, since it can slip in if we edit it, etc. + $ret .= "\n" if substr ($ret, -1) ne "\n"; + return $ret; } |