diff options
| -rwxr-xr-x | videodb-check.pl | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/videodb-check.pl b/videodb-check.pl index d266244..2f2e3cc 100755 --- a/videodb-check.pl +++ b/videodb-check.pl @@ -90,10 +90,10 @@ while (my $l = readdir(DIR)) { if ( -d Cwd::realpath($f) ) { opendir (SUBDIR, Cwd::realpath($f)) or die "Can't open dir `" .Cwd::realpath($f). ".:" .$!. "\n"; - while (readdir(SUBDIR)) { - next if $_ eq File::Spec->curdir(); - next if $_ eq File::Spec->updir(); - push @filelist, File::Spec->catfile($l,$_); + while (my $d = readdir(SUBDIR)) { + next if $d eq File::Spec->curdir(); + next if $d eq File::Spec->updir(); + push @filelist, File::Spec->catfile($l,$d); } closedir(SUBDIR) or die "Can't close: $!\n"; } |