summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-rwxr-xr-xvideodb-check.pl8
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";
}