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 ----
|
