Next Program Repair Shop 20

Make Relationships Explicit

        sub GrabFileList {
           for my $dir (@InputDIR) {
             opendir (FILELISTDIR,$dir);
             push @FileList, map "$dir/$_", readdir FILELISTDIR;
             closedir FILELISTDIR;
           }
        }


Next Copyright © 2002 M. J. Dominus