Changeset 31575 for main


Ignore:
Timestamp:
04/06/17 14:21:59 (4 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:
1 edited

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+)?)/)
Note: See TracChangeset for help on using the changeset viewer.