mason/.perl-lib/TrivGal.pm: Remove spurious `$e'.

[tgal] / mason / .perl-lib / TrivGal.pm

diff --git a/mason/.perl-lib/TrivGal.pm b/mason/.perl-lib/TrivGal.pm
index ea3b47a..8673b75 100644 (file)
--- a/mason/.perl-lib/TrivGal.pm
+++ b/mason/.perl-lib/TrivGal.pm
@@ -317,7 +317,7 @@ sub listdir ($) {
     if ($item && $comment) { $item->comment($comment); }
     close $f;
   } else {
-    my $st = stat "$path/$e";
+    my $st = stat $path;
     unless ($st->mode&0004) { return ([], [], undef); }
 
     opendir $d, $path;