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";
     }