Changeset 10254 for trunk/gsdl/perllib/plugins/MP3Plug.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/MP3Plug.pm (modified) (3 diffs)

trunk/gsdl/perllib/plugins/MP3Plug.pm

@@ -31 +31 @@
 use parsargv;
 
+use strict;
+no strict 'refs'; # allow filehandles to be variables and viceversa
+
 use MP3::Info;
 
@@ -36 +39 @@
 
 sub BEGIN {
-    @ISA = ('UnknownPlug');
+    @MP3Plug::ISA = ('UnknownPlug');
 }
 
@@ -179 +182 @@
         if ($mp3_metavalue !~ m/^\s*$/s) {
         my $kt_len = length($kt);
-        $kt_initial_cap = uc(substr($kt,0,1)).lc(substr($kt,1,$kt_len-1));
+        my $kt_initial_cap = uc(substr($kt,0,1)).lc(substr($kt,1,$kt_len-1));
         my $mp3_metaname = "mp3:".$kt_initial_cap;