changeset 1 | be27ed110b50 |
0:044383f39525 | 1:be27ed110b50 |
---|---|
1 --- oldevalidmd5.pm Mon Mar 12 13:49:20 2007 |
|
2 +++ evalidmd5.pm Fri Aug 10 10:29:34 2007 |
|
3 @@ -223,7 +223,7 @@ |
|
4 open LIST, "$iListFile" or croak "Cannot open $iListFile\n"; |
|
5 while(<LIST>) |
|
6 { |
|
7 - my $iFileName = $iDir."/".$_; |
|
8 + chomp(my $iFileName = $iDir."/".$_); |
|
9 if(-e $iFileName) |
|
10 { |
|
11 # The listed file exists add to the @iFileList |