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

trunk/gsdl/perllib/classify/AZList.pm

@@ -32 +32 @@
 use iso639;
 
+use strict;
+no strict 'refs'; # allow filehandles to be variables and viceversa
+
 sub BEGIN {
-    @ISA = ('BasClas');
+    @AZList::ISA = ('BasClas');
 }
 
@@ -76 +79 @@
     my $self = (defined $hashArgOptLists)? new BasClas($classifierslist,$inputargs,$hashArgOptLists): new BasClas($classifierslist,$inputargs);
 
+    if ($self->{'info_only'}) {
+    # don't worry about any options etc
+    return bless $self, $class;
+    }
+
     if (!$self->{"metadata"}) {
     print STDERR "AZList Error: required option -metadata not supplied \n";
@@ -131 +139 @@
 
     # find the first available metadata
-    foreach $m (@{$self->{'meta_list'}}) {
+    foreach my $m (@{$self->{'meta_list'}}) {
     $metavalue = $doc_obj->get_metadata_element($doc_obj->get_top_section(), $m);
     $metaname = $m;