X-Git-Url: https://git.camperquake.de/gitweb.cgi?a=blobdiff_plain;f=videosite%2FGetterBase.pm;h=52e8a4db097284c12a52b17e31fe20dcfea6befe;hb=HEAD;hp=c1eb5b59aff6f5a320df83bff215c4a9423e00ef;hpb=d738e03f4f2d70a41eba8b77177826d1ff62f42b;p=videosite.git

diff --git a/videosite/GetterBase.pm b/videosite/GetterBase.pm
index c1eb5b5..52e8a4d 100644
--- 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);
 }