From 065acad78fd3d59f49ed02647a1081507bab7bbd Mon Sep 17 00:00:00 2001
From: Ivan Brown <I.Brown@littleover.derby.sch.uk>
Date: Tue, 25 Sep 2012 15:57:43 +0100
Subject: [PATCH] Bug 7643 - Can't upload and import zipped file of patron
 images

Fixed problem with re-declaration of $filesuffix

Signed-off-by: Kyle M Hall <kyle@bywatersolutions.com>
Signed-off-by: Paul Poulain <paul.poulain@biblibre.com>
patch pushed onto master directly, doesn't merge properly from
new/bug_7643 branch
---
 tools/picture-upload.pl | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/tools/picture-upload.pl b/tools/picture-upload.pl
index bfb233e6e2..4507fa1f13 100755
--- a/tools/picture-upload.pl
+++ b/tools/picture-upload.pl
@@ -80,7 +80,7 @@ if ( ($op eq 'Upload') && $uploadfile ) {       # Case is important in these ope
     $debug and warn "dirname = $dirname";
     my $filesuffix;
     if ( $uploadfilename =~ m/(\..+)$/i ) {
-        my $filesuffix = $1;
+        $filesuffix = $1;
     }
     ( $tfh, $tempfile ) = File::Temp::tempfile( SUFFIX => $filesuffix, UNLINK => 1 );
     $debug and warn "tempfile = $tempfile";
-- 
2.39.5