Changeset 12891 for trunk/gsdl/perllib/classify/AZList.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/AZList.pm (modified) (1 diff)

trunk/gsdl/perllib/classify/AZList.pm

@@ -72 +72 @@
     if(defined $options) { push(@{$hashArgOptLists->{"OptList"}},$options)};
 
-    my $self = (defined $hashArgOptLists)? new BasClas($classifierslist,$inputargs,$hashArgOptLists): new BasClas($classifierslist,$inputargs);
+    my $self = new BasClas($classifierslist, $inputargs, $hashArgOptLists);
 
     if ($self->{'info_only'}) {