fix quoting in AsyncWgetFileGetter again

[videosite.git] / videosite / GetterBase.pm

diff --git a/videosite/GetterBase.pm b/videosite/GetterBase.pm
index a8130db..52e8a4d 100644 (file)
--- a/videosite/GetterBase.pm
+++ b/videosite/GetterBase.pm
@@ -1,21 +1,20 @@
 # (c) 2007 by Ralf Ertzinger <ralf@camperquake.de>
 # licensed under GNU GPL v2
 
-package GetterBase;
+package videosite::GetterBase;
 
-use Base;
-@ISA = qw(Base);
+use videosite::Base;
+@ISA = qw(videosite::Base);
 
 use strict;
 
 sub new {
     my $class = shift;
-    my $self = $class->SUPER::new();
-
-    $self = {%{$self},
+    my $self = $class->SUPER::new(
         NAME => 'FlashGetter',
-        TYPE => 'getter'
-    };
+        TYPE => 'getter',
+        @_,
+    );
 
     return bless($self, $class);
 }