Changeset 10254 for trunk/gsdl/perllib/plugins/RogPlug.pm

Timestamp:

2005-07-19T16:27:51+12:00 (19 years ago)

Author:

kjdon

Message:

added 'use strict' to all plugins, and made modifications (mostly adding 'my') to make them compile

File:

• trunk/gsdl/perllib/plugins/RogPlug.pm (modified) (2 diffs)

trunk/gsdl/perllib/plugins/RogPlug.pm

@@ -32 +32 @@
 use doc; 
 
+use strict;
+no strict 'refs'; # allow filehandles to be variables and viceversa
+
 sub BEGIN {
-    @ISA = ('BasPlug');
+    @RogPlug::ISA = ('BasPlug');
 }
 
@@ -196 +199 @@
     $doc_obj->add_metadata($cursection, "FileSize",      (-s $file));
 
-    foreach $md ( @{$song->{'metadata'}} )
+    foreach my $md ( @{$song->{'metadata'}} )
     {
     $doc_obj->add_metadata($cursection, $md->[0], $md->[1]);