From 0e09970a7844a4788c74737ec647e7513a24693c Mon Sep 17 00:00:00 2001 From: Guilhem Moulin Date: Sat, 17 Dec 2011 21:52:23 +0100 Subject: _git_commit --- videodb-check.pl | 8 ++++---- 1 file 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"; } -- cgit v1.2.3