changeset 2 | 39c28ec933dd |
1:820b22e13ff1 | 2:39c28ec933dd |
---|---|
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 |