Changeset 17207 for gsdl/trunk/perllib/downloaders/WgetDownload.pm

Timestamp:

2008-09-08T11:35:57+12:00 (16 years ago)

Author:

kjdon

Message:

BasDownload renamed to BaseDownload, also tidied up the constructors

File:

• gsdl/trunk/perllib/downloaders/WgetDownload.pm (modified) (3 diffs)

gsdl/trunk/perllib/downloaders/WgetDownload.pm

@@ -32 +32 @@
 $SIG{__WARN__} = sub {warn($_[0]) unless ($_[0] =~ /Subroutine\s+\S+\sredefined/)};
 
-use BasDownload;
+use BaseDownload;
 use strict;
 use IPC::Open2;
@@ -38 +38 @@
 
 sub BEGIN {
-    @WgetDownload::ISA = ('BasDownload');
+    @WgetDownload::ISA = ('BaseDownload');
 }
 
@@ -80 +80 @@
     push(@$getlist, $class);
 
-    if(defined $arguments){ push(@{$hashArgOptLists->{"ArgList"}},@{$arguments});}
-    if(defined $options) { push(@{$hashArgOptLists->{"OptList"}},$options)};
-
-    my $self = (defined $hashArgOptLists)? new BasDownload($getlist,$inputargs,$hashArgOptLists): new BasDownload($getlist,$inputargs);
+    push(@{$hashArgOptLists->{"ArgList"}},@{$arguments});
+    push(@{$hashArgOptLists->{"OptList"}},$options);
+
+    my $self = new BaseDownload($getlist,$inputargs,$hashArgOptLists);
 
     return bless $self, $class;