[Module-build-checkins] Module-Build/t common.pl,1.10,1.11
Status: Beta
Brought to you by:
kwilliams
From: Randy W. S. <si...@us...> - 2004-11-14 11:31:38
|
Update of /cvsroot/module-build/Module-Build/t In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv28243 Modified Files: common.pl Log Message: reverted to 1.9 Index: common.pl =================================================================== RCS file: /cvsroot/module-build/Module-Build/t/common.pl,v retrieving revision 1.10 retrieving revision 1.11 diff -C2 -d -r1.10 -r1.11 *** common.pl 13 Nov 2004 09:30:48 -0000 1.10 --- common.pl 14 Nov 2004 11:31:28 -0000 1.11 *************** *** 64,77 **** } - sub array_eq { # like Test::More::eq_array - my( $a1, $a2 ) = @_; - return 0 unless @$a1 == @$a2; - - for my $i ( 0..$#{$a1} ) { - return 0 unless $a1->[$i] eq $a2->[$i]; - } - - return 1; - } - 1; --- 64,66 ---- |