Changeset 21663 for perl5/Pugs-Compiler-Perl6/lib/Pugs/Runtime/Perl6Prelude.pm

Timestamp:

08/01/08 10:38:42 (5 months ago)

Author:

fglock

Message:

[v6.pm] 0.032

Files:

• perl5/Pugs-Compiler-Perl6/lib/Pugs/Runtime/Perl6Prelude.pm (modified) (1 diff)

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, :$w? ) { use v5; my $fh = IO::File->new; $fh->open($file, ($w ? 'w' : ()) ) || warn "can't open file $file"; $fh; use v6; }
+sub open($file, :$w? ) { 
+    use v5; 
+    my $fh = Pugs::Runtime::Perl6::IO::File->new; 
+    $fh->open($file, ($w ? 'w' : ()) ) || warn "can't open file $file"; 
+    $fh; 
+    use v6; 
+}
 
 module Pugs::Internals;