[Module-build-checkins] Module-Build/t moduleinfo.t,1.11,1.12
Status: Beta
Brought to you by:
kwilliams
|
From: Randy W. S. <si...@us...> - 2005-10-04 11:19:47
|
Update of /cvsroot/module-build/Module-Build/t In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv23713/t Modified Files: moduleinfo.t Log Message: Handle an edge case where the lhs of an assignment to a $VERSION variable is in parenthesis. Index: moduleinfo.t =================================================================== RCS file: /cvsroot/module-build/Module-Build/t/moduleinfo.t,v retrieving revision 1.11 retrieving revision 1.12 diff -u -d -r1.11 -r1.12 --- moduleinfo.t 2 Oct 2005 02:28:28 -0000 1.11 +++ moduleinfo.t 4 Oct 2005 11:19:39 -0000 1.12 @@ -3,7 +3,7 @@ use lib 't/lib'; use strict; -use Test::More tests => 58; +use Test::More tests => 62; use File::Spec (); @@ -147,6 +147,14 @@ $x = $y, $cats = $dogs; } --- + <<'---', # $VERSION wrapped in parens - space inside +package Simple; +( $VERSION ) = '1.23'; +--- + <<'---', # $VERSION wrapped in parens - no space inside +package Simple; +($VERSION) = '1.23'; +--- ); my( $i, $n ) = ( 1, scalar( @modules ) ); |