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