Changeset 10253 for trunk/gsdl/perllib/classify/List.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/List.pm (modified) (3 diffs)

trunk/gsdl/perllib/classify/List.pm

@@ -30 +30 @@
 package List;
 
+use strict;
+no strict 'refs'; # allow filehandles to be variables and viceversa
+
 use sorttools;
 
 sub BEGIN {
-    @ISA = ('BasClas');
+    @List::ISA = ('BasClas');
 }
 
@@ -144 +147 @@
         my $values_listref=
             $doc_obj->get_metadata($topsection, $m);
-        $array_size = scalar(@{$values_listref});
+        my $array_size = scalar(@{$values_listref});
         if ($array_size==0 || $array_size < $mdoffset+1) {
             $mdoffset = $mdoffset - $array_size;
@@ -222 +225 @@
     $classifyinfo{'supportsmemberof'} = $memberof;
 
-    foreach $OID (@list) {
+    foreach my $OID (@list) {
     my $hashref={};
     # special oid format, if using offsets (from AZCompactList)