Perlito5 - perl6 - fix $^O variable more

fglock · Oct 3, 2013 · 0d6f509 · 0d6f509
1 parent eae6843
commit 0d6f509
Show file tree

Hide file tree

Showing 2 changed files with 2 additions and 2 deletions.
diff --git a/perlito5.pl b/perlito5.pl
@@ -12522,7 +12522,7 @@ package Perlito5::AST::Apply;
         };
         if (($code eq 'prefix:<$>')) {
             my $arg = $self->{'arguments'}->[0];
-            return '$?VM' if ($arg->isa('Perlito5::AST::Val::Buf') && ($arg->{'buf'} eq chr(15)));
+            return '$*OS' if ($arg->isa('Perlito5::AST::Val::Buf') && ($arg->{'buf'} eq chr(15)));
             return ('$(' . $arg->emit_perl6() . ')')
         };
         if (($code eq 'prefix:<@>')) {

diff --git a/src5/lib/Perlito5/Perl6/Emitter.pm b/src5/lib/Perlito5/Perl6/Emitter.pm
@@ -447,7 +447,7 @@ package Perlito5::AST::Apply;
         if ( $code eq 'prefix:<$>' ) {
             my $arg = $self->{arguments}->[0];
 
-            return '$?VM' if $arg->isa('Perlito5::AST::Val::Buf') && $arg->{buf} eq chr(15);  # $^O
+            return '$*OS' if $arg->isa('Perlito5::AST::Val::Buf') && $arg->{buf} eq chr(15);  # $^O
 
             return '$(' . $arg->emit_perl6 . ')';
         }