Changeset 12891 for trunk/gsdl/perllib/classify/SectionList.pm

Timestamp:

2006-09-28T11:21:26+12:00 (18 years ago)

Author:

mdewsnip

Message:

Tidied up that horrible long line in the new() function of every classifier.

File:

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

trunk/gsdl/perllib/classify/SectionList.pm

@@ -57 +57 @@
     if(defined $options) { push(@{$hashArgOptLists->{"OptList"}},$options)};
 
-    my $self = (defined $hashArgOptLists)? new List($classifierslist,$inputargs,$hashArgOptLists): new List($classifierslist,$inputargs);
+    my $self = new List($classifierslist, $inputargs, $hashArgOptLists);
 
     return bless $self, $class;