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

trunk/gsdl/perllib/plugins/SRCPlug.pm

@@ -42 +42 @@
 use parsargv;
 
+use strict;
+no strict 'refs'; # allow filehandles to be variables and viceversa
+
 sub BEGIN {
-    @ISA = ('BasPlug');
+    @SRCPlug::ISA = ('BasPlug');
 }
 
@@ -174 +177 @@
     ($$textref =~ m/^\s*\#\s*include\s*(?:\"|<)(.*?)(?:\"|>)/mg);
     
-    my $incs_done_ref=$doc_obj->get_metadata($section, "includes");
+    my $incs_done_ref=$doc_obj->get_metadata($topsection, "includes");
     my @incs_done;
     if (defined($incs_done_ref)) {
@@ -230 +233 @@
         my $classname=$1;
         $classname =~ s/.*class\W(\w+).*/$1/;
-        my $classes=$doc_obj->get_metadata($section, "class");
+        my $classes=$doc_obj->get_metadata($topsection, "class");
         foreach my $elem (@$classes) {
             if ("$elem" eq "$classname") {goto class_done;}