Perlito5 - perl6 - special var

fglock · Oct 12, 2013 · a3e2348 · a3e2348
1 parent 66c192b
commit a3e2348
Show file tree

Hide file tree

Showing 2 changed files with 3 additions and 0 deletions.
diff --git a/perlito5.pl b/perlito5.pl
@@ -12380,6 +12380,8 @@ package Perlito5::AST::Var;
                 if $bareword eq '$';
             return('$*PROGRAM_NAME')
                 if $bareword eq 0;
+            return('$!')
+                if $bareword eq '@';
             return('$' . ($bareword - 1))
                 if $bareword >= 1
         }

diff --git a/src5/lib/Perlito5/Perl6/Emitter.pm b/src5/lib/Perlito5/Perl6/Emitter.pm
@@ -301,6 +301,7 @@ package Perlito5::AST::Var;
             return '"\n"'           if $bareword eq '/';   # XXX
             return '$*PID'          if $bareword eq '$';
             return '$*PROGRAM_NAME' if $bareword eq '0';
+            return '$!'             if $bareword eq '@';
             return '$' . ($bareword - 1) if $bareword >= 1;
         }