toke.c, S_scan_ident: Skip over newlines as well as spaces and tabs.

Not doing this lead to some bugs, such as 'eval "*{\nOIN}"'
returning a glob for "\nOIN" rather than just "OIN", or
'eval "\${\cT\n}"' giving spurious syntax errors.

Note however that this is not a full fix, since that latter
test case still fails outside of an eval.

1 files changed, 21 insertions, 2 deletions

diff --git a/t/uni/variables.t b/t/uni/variables.t
index cee681fd08..17bd4a845f 100644
--- a/t/uni/variables.t
+++ b/t/uni/variables.t
@@ -12,7 +12,7 @@ use utf8;
 use open qw( :utf8 :std );
 no warnings qw(misc reserved);
 
-plan (tests => 65869);
+plan (tests => 65873);
 
 # ${single:colon} should not be valid syntax
 {
@@ -202,7 +202,7 @@ EOP
     }
 }
 
-{
+{    
     # bleadperl v5.17.9-109-g3283393 breaks JEREMY/File-Signature-1.009.tar.gz
     # https://rt.perl.org/rt3/Ticket/Display.html?id=117145
     local $@;
@@ -227,3 +227,22 @@ EOP
         }
     }
 }
+
+{
+    is(
+        "".eval "*{\nOIN}",
+        "*main::OIN",
+        "Newlines at the start of an identifier should be skipped over"
+    );
+    
+    
+    is(
+        "".eval "*{^JOIN}",
+        "*main::\nOIN",
+        "...but \$^J is still legal"
+    );
+    
+    my $ret = eval "\${\cT\n}";
+    is($@, "", 'No errors from using ${\n\cT\n}');
+    is($ret, $^T, "...and we got the right value");
+}