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

trunk/gsdl/perllib/classify/HTML.pm

@@ -31 +31 @@
 use BasClas;
 
+use strict;
+no strict 'refs'; # allow filehandles to be variables and viceversa
+
 sub BEGIN {
-    @ISA = ('BasClas');
+    @HTML::ISA = ('BasClas');
 }
 
@@ -62 +65 @@
 
     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->{'url'}) {