Merge branch 'devel'

[videosite.git] / videosite / GetterBase.pm

diff --git a/videosite/GetterBase.pm b/videosite/GetterBase.pm
index c7d56de..52e8a4d 100644 (file)
--- a/videosite/GetterBase.pm
+++ b/videosite/GetterBase.pm
@@ -10,12 +10,11 @@ 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);
 }