Changeset 21654 for perl5

Timestamp:

07/31/08 16:58:59 (5 months ago)

Author:

fglock

Message:

[v6.pm] IO fixes

Location:

perl5/Pugs-Compiler-Perl6/lib/Pugs

Files:

• Emitter/Perl6/Perl5.pm (modified) (1 diff)
• Runtime/Perl6Prelude.pm (modified) (1 diff)

perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm

@@ -1643 +1643 @@
                 } );
         }
+        if (   exists $n->{exp2}{pair} 
+            && $n->{exp2}{pair}{key}{single_quoted} eq 'e'
+            && $n->{exp2}{pair}{value}{num} eq 1
+            ) 
+        {
+            #  $filename ~~ :e
+            return "( -e " . _emit( $n->{exp1} ) . ")";
+        }
         return _emit( $n->{exp1} ) . ' =~ (ref' . emit_parenthesis( $n->{exp2} ).' eq "Regexp" '.
             ' ? '._emit($n->{exp2}).

perl5/Pugs-Compiler-Perl6/lib/Pugs/Runtime/Perl6Prelude.pm

@@ -23 +23 @@
 # sub sleep($seconds) is export { use v5; CORE::sleep($seconds); use v6; }
 
-sub open($file) { use v5; my $fh = IO::File->new; $fh->open($file) || warn "can't open file $file"; $fh; use v6; }
+sub open($file, :$w? ) { use v5; my $fh = IO::File->new; $fh->open($file, ($w ? 'w' : ()) ) || warn "can't open file $file"; $fh; use v6; }
 
 module Pugs::Internals;