diff options
Diffstat (limited to 'util/files.pl')
-rwxr-xr-x | util/files.pl | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/util/files.pl b/util/files.pl index d984196616..32e712586d 100755 --- a/util/files.pl +++ b/util/files.pl @@ -25,8 +25,8 @@ while (<>) { $b=$`; # Keep what is before the backslash $o.=$b." "; - $b=<>; - $b =~ s|\R$||; # Better chomp + $b = "" unless defined($b = <>); + $b =~ s{\R$}{}; } else { @@ -43,7 +43,7 @@ while (<>) } } -$pwd=`pwd`; $pwd =~ s|\R$||; +($pwd=`pwd`) =~ s{\R$}{}; if ($sym{'TOP'} eq ".") { |