From 0485371ea73360e10ac5f2558788b4ff29abae53 Mon Sep 17 00:00:00 2001
From: Mark Wooding <mdw@distorted.org.uk>
Date: Sun, 11 Jun 2023 17:45:31 +0100
Subject: [PATCH] mason/.perl-lib/TrivGal.pm (listdir): Set item before setting
 index.

Otherwise we set the index to the /previous/ item, which doesn't go so
well.  I don't know why I never noticed this before.
---
 mason/.perl-lib/TrivGal.pm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/mason/.perl-lib/TrivGal.pm b/mason/.perl-lib/TrivGal.pm
index 193f122..eb82db2 100644
--- 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;
       }
-- 
2.11.0