Changeset 10253 for trunk/gsdl/perllib/classify/AZCompactSectionList.pm

Timestamp:

2005-07-19T16:18:25+12:00 (19 years ago)

Author:

kjdon

Message:

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

File:

• trunk/gsdl/perllib/classify/AZCompactSectionList.pm (modified) (3 diffs)

trunk/gsdl/perllib/classify/AZCompactSectionList.pm

@@ -10 +10 @@
 
 use AZCompactList;
+use strict;
+no strict 'refs'; # allow filehandles to be variables and viceversa
 
 sub BEGIN {
-    @ISA = ('AZCompactList');
-}
-
+    @AZCompactSectionList::ISA = ('AZCompactList');
+}
+
+my $arguments = [
+         ];
 my $options = 
 {   'name'     => "AZCompactSectionList",
@@ -183 +187 @@
     # should be recursively classified.
     #--
-    foreach $dm_pair (@$multiple_cl_ref) 
+    foreach my $dm_pair (@$multiple_cl_ref) 
     {
     my ($doc_OID,$mdoffset,$metavalue) = @$dm_pair;
@@ -193 +197 @@
     foreach $node_name (keys %{$self->{'classifiers'}}) 
     {
-        $resafe_node_name = $node_name;
+        my $resafe_node_name = $node_name;
         $resafe_node_name =~ s/(\(|\)|\[|\]|\{|\}|\^|\$|\.|\+|\*|\?|\|)/\\$1/g;
         if ($metavalue =~ m/^$resafe_node_name$/i)