Changeset 31575

Show
Ignore:
Timestamp:
06.04.2017 14:21:59 (2 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.

Files:
1 modified

Legend:

Unmodified
Added
Removed
  • main/trunk/greenstone2/perllib/classify/List.pm

    r31567 r31575  
    972972} 
    973973 
    974  
     974# $a and $b args automatically passed in and shouldn't be declared 
    975975sub alpha_numeric_cmp 
    976976{ 
    977     my ($self,$a,$b) = @_; 
     977    my ($self) = shift (@_);  
    978978 
    979979    if ($a =~ m/^(\d+(\.\d+)?)/)