From d94a992aeae56cb6156b068d7a70e1567070bb48 Mon Sep 17 00:00:00 2001
From: arensb <arensb>
Date: Wed, 22 Jan 2003 03:45:27 +0000
Subject: [PATCH] Removed two "my" declarations that were masking previous
 variable declarations, to make 'perl -w' happy.

---
 misc/Install.pm   | 2 +-
 misc/koha.upgrade | 2 +-
 2 files changed, 2 insertions(+), 2 deletions(-)

diff --git a/misc/Install.pm b/misc/Install.pm
index 548e9e1037..3f2111ba47 100644
--- a/misc/Install.pm
+++ b/misc/Install.pm
@@ -1282,7 +1282,7 @@ sub updatedatabase {
 		system("cat scripts/misc/lang-datas/fr/stopwords.sql | $::mysqldir/bin/mysql -u$::mysqluser $::mysqlpass_quoted $::dbname");
 	}
 
-	my $result=system ("perl -I $::intranetdir/modules scripts/marc/updatedb2marc.pl");
+	$result = system ("perl -I $::intranetdir/modules scripts/marc/updatedb2marc.pl");
 	if ($result) {
 		print "Problem updating database to MARC...\n";
 		exit;
diff --git a/misc/koha.upgrade b/misc/koha.upgrade
index c069a62f17..7e76d430db 100644
--- a/misc/koha.upgrade
+++ b/misc/koha.upgrade
@@ -336,7 +336,7 @@ foreach (@dirlist) {
 }
 
 opendir D, "$backupdir/kohafiles-$date/opac/htdocs/";
-my @dirlist=readdir D;
+@dirlist=readdir D;
 foreach (@dirlist) {
     (next) if (/^\./);
     (next) if ($_ eq 'default');
-- 
2.39.5