Perlito5 - preload warnings.pm (this is required by t/op/negate.t)

fglock · Aug 30, 2012 · 3585bd8 · 3585bd8
1 parent 2ffd277
commit 3585bd8
Show file tree

Hide file tree

Showing 2 changed files with 2 additions and 2 deletions.
diff --git a/perlito5.pl b/perlito5.pl
@@ -10209,7 +10209,7 @@ package Perlito5::Runtime;
     if ($execute) {
         ($Perlito5::EXPAND_USE = 1);
         local(${'@'});
-        (do { my $m = Perlito5::Grammar->exp_stmts(            ('package main; no strict; ' . $source . '; $@ = undef'), 0);my $source; $source .= (defined $_ ? $_->emit_perl5(0, "scalar") : "") . ";\n" for @{ Perlito5::Match::flat($m) }; eval $source;});
+        (do { my $m = Perlito5::Grammar->exp_stmts(            ('package main; no strict; no warnings; ' . $source . '; $@ = undef'), 0);my $source; $source .= (defined $_ ? $_->emit_perl5(0, "scalar") : "") . ";\n" for @{ Perlito5::Match::flat($m) }; eval $source;});
         if (${'@'}) {
             ((my  $error) = ${'@'});
             warn($error);

diff --git a/src5/util/perlito5.pl b/src5/util/perlito5.pl
@@ -147,7 +147,7 @@ package Perlito;
     if ( $execute ) { 
         $Perlito5::EXPAND_USE = 1;
         local $@;
-        eval "package main; no strict; $source; \$@ = undef";
+        eval "package main; no strict; no warnings; $source; \$@ = undef";
         if ( $@ ) {
             my $error = $@;
             warn $error;