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

trunk/gsdl/perllib/plugins/ReferPlug.pm

@@ -66 +66 @@
 
 use SplitPlug;
+use strict;
+no strict 'refs'; # allow filehandles to be variables and viceversa
 
 # ReferPlug is a sub-class of BasPlug.
 sub BEGIN {
-    @ISA = ('SplitPlug');
+    @ReferPlug::ISA = ('SplitPlug');
 }
 
@@ -125 +127 @@
     return undef unless ($$textref =~ /^\s*%/);
 
+    my $cursection = $doc_obj->get_top_section();
     # Report that we're processing the file
     print STDERR "<Processing n='$file' p='ReferPlug'>\n" if ($gli);
@@ -165 +168 @@
     $line =~ s/\s+/ /g;
     $text .= "$line\n";
-    $ReferFormat .= "$line\n";
+    # $ReferFormat .= "$line\n"; # what is this???
     
     next unless ($line =~ /^%[A-Z\*]/);