oeps, don't show lockfile in list

This commit is contained in:
Ward Wouts 2002-02-05 21:41:17 +00:00
parent 3d022151d7
commit 5067c06ad0

View file

@ -54,7 +54,7 @@ sub read_cur_dir {
my (@dir, $filename); my (@dir, $filename);
opendir(DIRHANDLE, ".") or &cdie("couldn't open .: $!\n"); opendir(DIRHANDLE, ".") or &cdie("couldn't open .: $!\n");
while ( defined ($filename = readdir(DIRHANDLE)) ) { while ( defined ($filename = readdir(DIRHANDLE)) ) {
unless ($filename eq "." | $filename eq "..") { unless ($filename eq "." | $filename eq ".." | $filename eq ".mvwrap" ) {
chomp ($filename); chomp ($filename);
push @dir, $filename; push @dir, $filename;
} }