Changeset 31575 for main

Timestamp:

2017-04-06T14:21:59+12:00 (7 years ago)

Author:

kjdon

Message:

on toro (perl 5.12) it complained about 'can't use my in sort comparison' . and are special things for sort, so don't need to be declared.

File:

• main/trunk/greenstone2/perllib/classify/List.pm (modified) (1 diff)

main/trunk/greenstone2/perllib/classify/List.pm

@@ -972 +972 @@
 }
 
-
+# $a and $b args automatically passed in and shouldn't be declared
 sub alpha_numeric_cmp
 {
-    my ($self,$a,$b) = @_;
+    my ($self) = shift (@_); 
 
     if ($a =~ m/^(\d+(\.\d+)?)/)