summaryrefslogtreecommitdiffstats
path: root/videodb-check.pl
diff options
context:
space:
mode:
authorGuilhem Moulin <guilhem.moulin@ens-lyon.org>2011-12-17 21:52:23 +0100
committerGuilhem Moulin <guilhem.moulin@ens-lyon.org>2011-12-17 21:52:23 +0100
commit0e09970a7844a4788c74737ec647e7513a24693c (patch)
tree57378321fc32dc2ad28ca104947b52d0b9e8f330 /videodb-check.pl
parentf3808627873cfaf19d879446fd807548b50bc78d (diff)
_git_commit
Diffstat (limited to 'videodb-check.pl')
-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";
}