oqapi/webgui
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

fixing missing 'my 's

Browse source
This commit is contained in:
Matthew Wilson 2005-11-08 20:01:00 +00:00
parent b506f01399
commit 43941e58b0
1 changed files with 3 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

6
lib/WebGUI/Storage.pm
View file

@ -156,7 +156,7 @@ sub addFileFromFilesystem {
my $source = FileHandle->new($pathToFile,"r"); my $source = FileHandle->new($pathToFile,"r");
if (defined $source) { if (defined $source) {
binmode($source); binmode($source);
$dest = FileHandle->new(">".$self->getPath($filename)); my $dest = FileHandle->new(">".$self->getPath($filename));
if (defined $dest) { if (defined $dest) {
binmode($dest); binmode($dest);
cp($source,$dest) or $self->_addError("Couldn't copy $pathToFile to ".$self->getPath($filename).": $!"); 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 $newStorage = WebGUI::Storage->create;
my $filelist = $self->getFiles; my $filelist = $self->getFiles;
foreach my $file (@{$filelist}) { foreach my $file (@{$filelist}) {
$source = FileHandle->new($self->getPath($file),"r"); my $source = FileHandle->new($self->getPath($file),"r");
if (defined $source) { if (defined $source) {
binmode($source); binmode($source);
$dest = FileHandle->new(">".$newStorage->getPath($file)); my $dest = FileHandle->new(">".$newStorage->getPath($file));
if (defined $dest) { if (defined $dest) {
binmode($dest); binmode($dest);
cp($source,$dest) or $self->_addError("Couldn't copy file ".$self->getPath($file)." to ".$newStorage->getPath($file)." because ".$!); cp($source,$dest) or $self->_addError("Couldn't copy file ".$self->getPath($file)." to ".$newStorage->getPath($file)." because ".$!);