X-Git-Url: https://git.camperquake.de/gitweb.cgi?a=blobdiff_plain;f=videosite%2FJSLexArrayParser.pm;h=f250d6125de729ff83208887a9e8e012149e97b5;hb=12db405291947c6b02c2555051c3dc52f3995cbc;hp=20e6e0ef7813cfb9cf679893b6e94cb065ba6bfb;hpb=385562c7e75f81207b5079415eaea99792b91a9a;p=videosite.git

diff --git a/videosite/JSLexArrayParser.pm b/videosite/JSLexArrayParser.pm
index 20e6e0e..f250d61 100644
--- a/videosite/JSLexArrayParser.pm
+++ b/videosite/JSLexArrayParser.pm
@@ -6,7 +6,10 @@
 # package. Use 'yapp -m videosite::jsarray -s jsarray.yp' to regenerate
 #
 
-package videosite::JSArrayParser;
+package videosite::JSLexArrayParser;
+
+use videosite::JSArrayParser;
+@ISA = qw(videosite::JSArrayParser);
 
 use Parse::Lex;
 use videosite::jsarray;
@@ -23,10 +26,10 @@ my @tokens = (
 
 sub new {
     my $class = shift;
-    my $self = {
-        '_PARSER' => videosite::jsarray->new(),
-        '_LEXER' => Parse::Lex->new(@tokens),
-    };
+    my $self = $class->SUPER::new();
+
+    $self->{'_PARSER'} = videosite::jsarray->new();
+    $self->{'_LEXER'} = Parse::Lex->new(@tokens);
 
     return bless($self, $class);
 }