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

trunk/gsdl/perllib/classify/SectionList.pm

@@ -35 +35 @@
 use sorttools;
 
+use strict;
+no strict 'refs'; # allow filehandles to be variables and viceversa
+
 sub BEGIN {
-    @ISA = ('List');
+    @SectionList::ISA = ('List');
 }
 
+my $arguments = [];
 my $options = { 'name'     => "SectionList",
         'desc'     => "{SectionList.desc}",
@@ -71 +75 @@
     my $thissection = undef;
 
-    my $option;
-    foreach $option (@options)
+    foreach my $option (@options)
     {
     if ($option =~ m/^section=(\d+)$/i) 
@@ -118 +121 @@
     if (defined $self->{'meta_list'}) {
     # find the first available metadata
-    foreach $m (@{$self->{'meta_list'}}) {
+    foreach my $m (@{$self->{'meta_list'}}) {
         $metavalue = $doc_obj->get_metadata_element($section, $m);
         $metaname = $m;