Changeset 21574 for perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm

Timestamp:

07/27/08 18:44:51 (6 months ago)

Author:

fglock

Message:

[v6.pm] improved perl(), slurp()

Files:

• perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm (modified) (2 diffs)

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

@@ -802 +802 @@
                 || $subname eq 'index' || $subname eq 'undef' || $subname eq 'rand' || $subname eq 'int' 
                 || $subname eq 'splice' || $subname eq 'keys' || $subname eq 'values' || $subname eq 'sort' 
-                || $subname eq 'chomp' || $subname eq 'lc' || $subname eq 'abs' 
+                || $subname eq 'chomp' || $subname eq 'lc' || $subname eq 'abs' || $subname eq 'sleep' 
                 ) 
             {
@@ -840 +840 @@
             if ($subname eq 'open') {
                 return 'Perl6::Internals::open('. _emit_parameter_capture( $n->{param} ) . ')';
+            }
+            if ($subname eq 'slurp') {
+                return 'Pugs::Runtime::Perl6::IO::slurp'. emit_parenthesis( $n->{param} );
             }