Changeset 17209 for gsdl/trunk/perllib/classify/AZSectionList.pm

Timestamp:

2008-09-08T12:35:53+12:00 (16 years ago)

Author:

kjdon

Message:

BasClas renamed to BaseClassifier, tidied up constructors

File:

• gsdl/trunk/perllib/classify/AZSectionList.pm (modified) (1 diff)

gsdl/trunk/perllib/classify/AZSectionList.pm

@@ -61 +61 @@
     push(@$classifierslist, $class);
 
-    if(defined $arguments){ push(@{$hashArgOptLists->{"ArgList"}},@{$arguments});}
-    if(defined $options) { push(@{$hashArgOptLists->{"OptList"}},$options)};
+    push(@{$hashArgOptLists->{"ArgList"}},@{$arguments});
+push(@{$hashArgOptLists->{"OptList"}},$options);
 
     my $self = new AZList($classifierslist, $inputargs, $hashArgOptLists);