fix quoting in AsyncWgetFileGetter again

[videosite.git] / videosite / GetterBase.pm

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