[Module-build-checkins] Module-Build/t ext.t,1.2,1.3
Status: Beta
Brought to you by:
kwilliams
From: Ken W. <kwi...@us...> - 2004-11-28 02:27:58
|
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" ); |