Perlito5 - cpan - prepare v9.022

fglock · May 13, 2017 · 30e6fbb · 30e6fbb
1 parent 09769b6
commit 30e6fbb
Show file tree

Hide file tree

Showing 7 changed files with 22 additions and 12 deletions.
diff --git a/ChangeLog b/ChangeLog
@@ -8,17 +8,20 @@
 
 	BEGIN blocks (parser)
 
+    tie() and overload
+
+    XS replacement modules
+
+9.022 cpan:Perlito5  2017-05-xx
 - Parser:
 -- Implemented compile-time scratchpad, used in BEGIN blocks.
 -- "Use" is no longer an AST node, because all "use" statements
     are executed at compile-time
-
 - JavaScript:
 -- fix "range" special cases
 -- regex /s /x modifiers
 -- variable redeclaration
 -- fixed a performance problem in eval-string
-
 - Java:
 -- eval-string
 -- __DATA__ and <DATA> filehandle

diff --git a/cpan-Perlito5/make-Perlito5.sh b/cpan-Perlito5/make-Perlito5.sh
@@ -59,6 +59,8 @@ rm t/hash_with_map_and_fat_arrow.t  # Can't locate ./test.pl in @INC (@INC conta
 rm t/object-can.t                   # Can't locate ./test.pl in @INC (@INC contains: ../lib) at t/object-can.t line 6.
 rm t/undef-on-obj-slot-index.t      # Can't locate ./test.pl in @INC (@INC contains: ../lib) at t/undef-on-obj-slot-index.t line 6.
 rm t/state.t                # new in Perl
+rm t/index_eval.t           # Can't locate ./test.pl
+rm t/regex_escape.t         # warnings
 
 
 mkdir src

diff --git a/perlito5.pl b/perlito5.pl
@@ -2,7 +2,7 @@
 use v5.10;
 use feature 'say';
 
-# Do not edit this file - Generated by Perlito5 9.021
+# Do not edit this file - Generated by Perlito5 9.022
 
 {
     package main;
@@ -14,7 +14,7 @@
 {
     package main;
     package Perlito5;
-    $VERSION = 9.021;
+    $VERSION = 9.022;
     1
 }
 {
@@ -29317,7 +29317,7 @@
                         }
                     }
                     else {;
-                        push(@Perlito5::COMP_UNIT, Perlito5::Match::flat($m))
+                        push(@Perlito5::COMP_UNIT, Perlito5::AST::CompUnit::->new('name' => 'main', 'body' => Perlito5::Match::flat($m)))
                     }
                     for $_ (0 .. $#Perlito5::COMP_UNIT) {;
                         $Perlito5::COMP_UNIT[$_] = $Perlito5::COMP_UNIT[$_]->emit_begin_scratchpad()

diff --git a/src5/lib/Perlito5.pm b/src5/lib/Perlito5.pm
@@ -1,6 +1,6 @@
 package Perlito5;
 
-$VERSION = '9.021';
+$VERSION = '9.022';
 
 1;
 
@@ -115,7 +115,7 @@ L<http://fglock.github.io/Perlito>
 
 =head1 COPYRIGHT
 
-Copyright 2011, 2012, 2015 by Flavio Soibelmann Glock and others.
+Copyright 2011-2017 by Flavio Soibelmann Glock and others.
 
 This program is free software; you can redistribute it and/or modify it
 under the same terms as Perl itself.

diff --git a/src5/lib/Perlito5/Compiler.pm b/src5/lib/Perlito5/Compiler.pm
@@ -4,6 +4,7 @@ use warnings;
 
 use Perlito5::Match;
 use Perlito5::Grammar;
+use Perlito5::Grammar::Statement;
 use Perlito5::Grammar::Control;
 use Perlito5::Grammar::Precedence;
 use Perlito5::Grammar::Expression;

diff --git a/src5/lib/Perlito5/Grammar/Scope.pm b/src5/lib/Perlito5/Grammar/Scope.pm
@@ -151,8 +151,8 @@ sub check_variable_declarations {
                     # warn "look: ", Data::Dumper::Dumper(\@Perlito5::SCOPE_STMT);
                     my $sigil = $var->{_real_sigil} || $var->{sigil};
                     if ($sigil ne '*' && $sigil ne '&') {
-                        Perlito5::Compiler::error 'Global symbol "' . $sigil . $var->{name} . '"'
-                            . ' requires explicit package name';
+                        Perlito5::Compiler::error( 'Global symbol "' . $sigil . $var->{name} . '"'
+                            . ' requires explicit package name' );
                     }
                 }
                 $var->{_decl} = 'global';

diff --git a/src5/util/perlito5.pl b/src5/util/perlito5.pl
@@ -98,8 +98,8 @@ package Perlito5;
 my $copyright_message = <<"EOT";
 This is Perlito5 $_V5_COMPILER_VERSION, an implementation of the Perl language.
 
-The Perl language is Copyright 1987-2012, Larry Wall
-The Perlito5 implementation is Copyright 2011, 2012 by Flavio Soibelmann Glock and others.
+The Perl language is Copyright 1987-2017, Larry Wall
+The Perlito5 implementation is Copyright 2011-2017 by Flavio Soibelmann Glock and others.
 
 Perl may be copied only under the terms of either the Artistic License or the
 GNU General Public License, which may be found in the Perl 5 source kit.
@@ -454,7 +454,11 @@ sub get_text_from_switch {
                     }
                 }
                 else {
-                    push @Perlito5::COMP_UNIT, Perlito5::Match::flat($m);
+                    push @Perlito5::COMP_UNIT,
+                      Perlito5::AST::CompUnit->new(
+                        name => 'main',
+                        body => Perlito5::Match::flat($m),
+                      );
                 }
 
                 for (0 .. $#Perlito5::COMP_UNIT) {