From 43941e58b02efa08bbd6dad618c1e6ba2473a090 Mon Sep 17 00:00:00 2001
From: Matthew Wilson <matt@plainblack.com>
Date: Tue, 8 Nov 2005 20:01:00 +0000
Subject: [PATCH] fixing missing 'my 's

---
 lib/WebGUI/Storage.pm | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/lib/WebGUI/Storage.pm b/lib/WebGUI/Storage.pm
index 636a29061..9753ae88a 100644
--- a/lib/WebGUI/Storage.pm
+++ b/lib/WebGUI/Storage.pm
@@ -156,7 +156,7 @@ sub addFileFromFilesystem {
                         my $source = FileHandle->new($pathToFile,"r");
                         if (defined $source) {
                                 binmode($source);
-                                $dest = FileHandle->new(">".$self->getPath($filename));
+                                my $dest = FileHandle->new(">".$self->getPath($filename));
                                 if (defined $dest) {
                                         binmode($dest);
                                         cp($source,$dest) or $self->_addError("Couldn't copy $pathToFile to ".$self->getPath($filename).": $!");
@@ -300,10 +300,10 @@ sub copy {
 	my $newStorage = WebGUI::Storage->create;
 	my $filelist = $self->getFiles;
 	foreach my $file (@{$filelist}) {	
-        	$source = FileHandle->new($self->getPath($file),"r");
+        	my $source = FileHandle->new($self->getPath($file),"r");
         	if (defined $source) {
                 	binmode($source);
-                	$dest = FileHandle->new(">".$newStorage->getPath($file));
+                	my $dest = FileHandle->new(">".$newStorage->getPath($file));
                 	if (defined $dest) {
                         	binmode($dest);
                         	cp($source,$dest) or $self->_addError("Couldn't copy file ".$self->getPath($file)." to ".$newStorage->getPath($file)." because ".$!);