Changeset 31577 for main/trunk/greenstone2
- Timestamp:
- 2017-04-06T14:48:16+12:00 (7 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
main/trunk/greenstone2/perllib/classify/List.pm
r31576 r31577 976 976 sub alpha_numeric_cmp 977 977 { 978 my ($self)= shift (@_);979 980 if ($a =~ m/^(\d+(\.\d+)?)/)978 my $self = shift (@_); 979 my ($aStr, $bStr) = @_; 980 if ($aStr =~ m/^(\d+(\.\d+)?)/) 981 981 { 982 982 my $val_a = $1; 983 if ($b =~ m/^(\d+(\.\d+)?)/)983 if ($bStr =~ m/^(\d+(\.\d+)?)/) 984 984 { 985 985 my $val_b = $1; … … 991 991 } 992 992 993 return ($a cmp $b);993 return ($aStr cmp $bStr); 994 994 } 995 995
Note:
See TracChangeset
for help on using the changeset viewer.