From 26ad3f96fbc541fcd32ac772462f793bc619e275 Mon Sep 17 00:00:00 2001
From: Gavin Carr <gavin@openfusion.com.au>
Date: Fri, 18 Jun 2010 20:15:31 +0100
Subject: [PATCH 1/1] Move orphaned 'my $d' in default entries inline.

---
 blosxom.cgi | 3 +--
 1 file changed, 1 insertion(+), 2 deletions(-)

diff --git a/blosxom.cgi b/blosxom.cgi
index 2c00547..11143b1 100755
--- a/blosxom.cgi
+++ b/blosxom.cgi
@@ -553,7 +553,6 @@ $entries = sub {
     my $param_all = param('-all');
     find(
         sub {
-            my $d;
             my $curr_depth = $File::Find::dir =~ tr[/][];
             return if $depth and $curr_depth > $depth;
 
@@ -585,7 +584,7 @@ $entries = sub {
                     or stat($static_file)->mtime < $mtime )
                 {
                     $indexes{$1} = 1;
-                    $d = join( '/', ( nice_date($mtime) )[ 5, 2, 3 ] );
+                    my $d = join( '/', ( nice_date($mtime) )[ 5, 2, 3 ] );
                     $indexes{$d} = $d;
                     $indexes{ ( $1 ? "$1/" : '' ) . "$2.$file_extension" } = 1
                         if $static_entries;
-- 
2.30.2