- Improved the parsing of a here-document when it's followed by a bar…

…eword. Example: print <<-1234 # works now hello 1234
trizen · Sep 3, 2015 · 8ab0b77 · 8ab0b77
1 parent b240758
commit 8ab0b77
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/lib/Sidef/Parser.pm b/lib/Sidef/Parser.pm
@@ -1539,7 +1539,7 @@ package Sidef::Parser {
                 );
             }
 
-            # Begining of here-document (<<"EOT", <<'EOT', <<EOT)
+            # Beginning of a here-document (<<"EOT", <<'EOT', <<EOT)
             if (/\G<<(?=\S)/gc) {
                 my ($name, $type) = (undef, 1);
 
@@ -1548,7 +1548,7 @@ package Sidef::Parser {
                     my $str = $self->get_quoted_string(code => $opt{code});
                     $name = $str;
                 }
-                elsif (/\G(-?\pL+)/gc) {
+                elsif (/\G(-?[_\pL\pN]+)/gc) {
                     $name = $1;
                 }
                 else {