Perlito5 - perl6 - fix $^O variable

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

Hide file tree

Showing 2 changed files with 4 additions and 0 deletions.
diff --git a/perlito5.pl b/perlito5.pl
@@ -12522,6 +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 ('$(' . $arg->emit_perl6() . ')')
         };
         if (($code eq 'prefix:<@>')) {

diff --git a/src5/lib/Perlito5/Perl6/Emitter.pm b/src5/lib/Perlito5/Perl6/Emitter.pm
@@ -446,6 +446,9 @@ 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 '$(' . $arg->emit_perl6 . ')';
         }
         if ( $code eq 'prefix:<@>' ) {