X-Git-Url: https://git.camperquake.de/gitweb.cgi?a=blobdiff_plain;f=videosite%2FGetterBase.pm;h=52e8a4db097284c12a52b17e31fe20dcfea6befe;hb=9257f7504905acaae56297cf7f1a479853e68fe7;hp=c391ed874f2c666db541d16c01989d946ae4c7e3;hpb=2044d5ff60e639a2eafbeed3a70224564e94c84c;p=videosite.git diff --git a/videosite/GetterBase.pm b/videosite/GetterBase.pm index c391ed8..52e8a4d 100644 --- a/videosite/GetterBase.pm +++ b/videosite/GetterBase.pm @@ -1,19 +1,20 @@ # (c) 2007 by Ralf Ertzinger # 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 = { + my $self = $class->SUPER::new( NAME => 'FlashGetter', - TYPE => 'getter' - }; + TYPE => 'getter', + @_, + ); return bless($self, $class); }