#!/usr/bin/perl -w use strict; package joe; my @names = ('joe', 'aaron'); package FP; sub sortNames ($$) { print "$_[ 0 ] vs $_[ 1 ]\n"; return $_[ 0 ] cmp $_[ 1 ]; } package joe; my @sorted = sort nonexistent @names; print "sorted : @sorted\n"; CHECK {print "here I am\n"} __END__ here I am Undefined subroutine in sort at asort.pl line 15.
Flavio (perl -e 'print(scalar(reverse("\nti.xittelop\@oivalf")))')
Don't fool yourself.In reply to Re^3: sort sub in a different package
by polettix
in thread sort sub in a different package
by blahblahblah
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |