Next

Program Repair Shop

35

CopyFiles

                        next if $file =~ /^\./;

• This line had a bug---it skipped .netscape for example

• Had $file been a full path like ./wuexport/foo, it would always match

• This suggests that the test is in the wrong place

• What are . and .. doing in @FileList anyway?

• Let's fix GrabFileList:

        sub GrabFileList {
          ...
          my @files = grep !/^\./, readdir FILELISTDIR;
          ...

Next

Copyright © 2002 M. J. Dominus