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

trunk/gsdl/perllib/plugins/MARCPlug.pm

@@ -33 +33 @@
 use parsargv;
 
+use strict;
+no strict 'refs'; # allow filehandles to be variables and viceversa
+
 sub BEGIN {
-    @ISA = ('SplitPlug');
+    @MARCPlug::ISA = ('SplitPlug');
     unshift (@INC, "$ENV{'GSDLHOME'}/perllib/cpan");
 }
@@ -261 +264 @@
     my @words = split(/ /, $text);
 
-    foreach $word (@words) {
+    foreach my $word (@words) {
     # If printing this word would exceed the column end, start a new line
     if (($linelength + length($word)) >= $columnwidth) {
@@ -301 +304 @@
         foreach $metavalue ( @metavalues )
         {
-        $metavalue_str = $self->to_utf8($encoding,$metavalue->as_string());
-        $doc_obj->add_utf8_metadata ($thissection, $metaname, $metavalue_str);
+        my $metavalue_str = $self->to_utf8($encoding,$metavalue->as_string());
+        $doc_obj->add_utf8_metadata ($section, $metaname, $metavalue_str);
         }
     }