Changeset 31575 for main/trunk/greenstone2/perllib
- Timestamp:
- 2017-04-06T14:21:59+12:00 (7 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
main/trunk/greenstone2/perllib/classify/List.pm
r31567 r31575 972 972 } 973 973 974 974 # $a and $b args automatically passed in and shouldn't be declared 975 975 sub alpha_numeric_cmp 976 976 { 977 my ($self ,$a,$b) = @_;977 my ($self) = shift (@_); 978 978 979 979 if ($a =~ m/^(\d+(\.\d+)?)/)
Note:
See TracChangeset
for help on using the changeset viewer.