Base: remove debugging code accidentially left in

[videosite.git] / videosite / GetterBase.pm

diff --git a/videosite/GetterBase.pm b/videosite/GetterBase.pm
index c1eb5b5..c7d56de 100644 (file)
--- a/videosite/GetterBase.pm
+++ b/videosite/GetterBase.pm
@@ -1,13 +1,18 @@
-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();
+
+    $self = {%{$self},
         NAME => 'FlashGetter',
         TYPE => 'getter'
     };