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

Timestamp:

07/31/08 14:12:56 (5 months ago)

Author:

fglock

Message:

[v6.pm] more tests

Files:

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

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

@@ -836 +836 @@
         my $subname = $n->{sub}{bareword};
         if ( $subname ) {
+            if ($subname eq 'next') {
+                my $param = $n->{param} ? _emit( $n->{param} ) : '';
+                return " next $param ";
+            }
+            if ($subname eq 'redo') {
+                my $param = $n->{param} ? _emit( $n->{param} ) : '';
+                return " redo $param ";
+            }
+
             if ($subname eq 'defined') {
                 my $param = _emit( $n->{param} );
@@ -1117 +1126 @@
 
     if ( $n->{statement} eq 'do' ) {
-        return 'do ' . emit_block( $n->{exp1} );
+        return 'do { for($_) ' . emit_block( $n->{exp1} ) . ' }';
     }
     if ( $n->{statement} eq 'given' ) {