Update of /cvsroot/module-build/Module-Build/t
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv31327/t
Modified Files:
ext.t
Log Message:
Use a more perl-backwards-compatible construction
Index: ext.t
===================================================================
RCS file: /cvsroot/module-build/Module-Build/t/ext.t,v
retrieving revision 1.2
retrieving revision 1.3
diff -C2 -d -r1.2 -r1.3
*** ext.t 15 Nov 2004 02:56:28 -0000 1.2
--- ext.t 28 Nov 2004 02:27:42 -0000 1.3
***************
*** 73,77 ****
my ($string, $expected) = %$test;
my @result = $package->split_like_shell($string);
! ok( grep( {!defined()} @result ), # all defined
0,
"'$string' result all defined" );
--- 73,77 ----
my ($string, $expected) = %$test;
my @result = $package->split_like_shell($string);
! ok( 0 + grep( !defined(), @result ), # all defined
0,
"'$string' result all defined" );
|
