mason/.perl-lib/TrivGal.pm (listdir): Set item before setting index.

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

diff --git a/mason/.perl-lib/TrivGal.pm b/mason/.perl-lib/TrivGal.pm
index 193f1220b1c55d93f2529cd017ade5d7cce2177a..eb82db27ad9e78951de701ceaf991b42a4588785 100644 (file)
--- a/mason/.perl-lib/TrivGal.pm
+++ b/mason/.perl-lib/TrivGal.pm
@@ -305,6 +305,7 @@ sub listdir ($) {
             $/x;
        $name = urldecode $name;
        my $list;
+       $item = TrivGal::Item->new($name);
        if ($name =~ m#/$#) {
          $list = \@d;
          die "can't index a folder" if $indexp;
@@ -317,7 +318,6 @@ sub listdir ($) {
            $ix = $item;
          }
        }
-       $item = TrivGal::Item->new($name);
        $comment = $c;
        push @$list, $item;
       }