Merge branch 'blead' of ssh://perl5.git.perl.org/gitroot/perl into blead

* 'blead' of ssh://perl5.git.perl.org/gitroot/perl:
  Tests for RT #72432

1 files changed, 13 insertions, 1 deletions

diff --git a/t/op/packagev.t b/t/op/packagev.t
index bc99ec4524..8e8f19f9b3 100644
--- a/t/op/packagev.t
+++ b/t/op/packagev.t
@@ -17,7 +17,8 @@ my @syntax_cases = (
 
 my @version_cases = <DATA>;
 
-plan tests => 5 * @syntax_cases + 5 * grep { $_ !~ /^#/ } @version_cases;
+plan tests => 5 * @syntax_cases + 5 * (grep { $_ !~ /^#/ } @version_cases)
+            + 3;
 
 use warnings qw/syntax/;
 use version;
@@ -94,6 +95,17 @@ for my $line (@version_cases) {
     }
 }
 
+#
+# Tests for #72432 - which reports a syntax error if there's a newline
+# between the package name and the version.
+#
+# Note that we are using 'run_perl' here - there's no problem if 
+# "package Foo\n1;" is evalled.
+#
+for my $v ("1", "1.23", "v1.2.3") {
+    ok (run_perl (prog => "package Foo\n$v; print 1;"),
+                          "New line between package name and version");
+}
 
 # The data is organized in tab delimited format with these columns:
 #