[Module-build-checkins] Module-Build/t moduleinfo.t,1.12,1.13

[Ken W. <kwi...@us...>]

Update of /cvsroot/module-build/Module-Build/t
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv18434/t

Modified Files:
	moduleinfo.t 
Log Message:
Fix a $VERSION parsing edge case

Index: moduleinfo.t
===================================================================
RCS file: /cvsroot/module-build/Module-Build/t/moduleinfo.t,v
retrieving revision 1.12
retrieving revision 1.13
diff -u -d -r1.12 -r1.13
--- moduleinfo.t	4 Oct 2005 11:19:39 -0000	1.12
+++ moduleinfo.t	14 Oct 2005 00:45:52 -0000	1.13
@@ -3,7 +3,7 @@
 use lib 't/lib';
 use strict;
 
-use Test::More tests => 62;
+use Test::More tests => 64;
 
 
 use File::Spec ();
@@ -155,6 +155,14 @@
 package Simple;
 ($VERSION) = '1.23';
 ---
+  <<'---', # $VERSION follows a spurious 'package' in a quoted construct
+package Simple;
+__PACKAGE__->mk_accessors(qw(
+    program socket proc
+    package filename line codeline subroutine finished));
+
+our $VERSION = "1.23";
+---
 );
 
 my( $i, $n ) = ( 1, scalar( @modules ) );