[perl #61788] [PATCH] cleanup pipp

[email protected] ("Daniel Keane") Sun, 28 Dec 2008 08:14:45 -0800

Newsgroups	perl.perl6.internals
Message-ID	<[email protected]>

# New Ticket Created by  "Daniel Keane" 
# Please include the string:  [perl #61788]
# in the subject line of all future correspondence about this issue. 
# <URL: http://rt.perl.org/rt3/Ticket/Display.html?id=61788 >


Remove commented code from src/pct/actions.pm

Make a small change to src/common/php_array.pir array sub

pipp_cleanup-281208.patch (text/x-patch, 883 B)

Index: src/pct/actions.pm
===================================================================
--- src/pct/actions.pm	(revision 34496)
+++ src/pct/actions.pm	(working copy)
@@ -182,13 +182,6 @@
                     :node( $/ )
                 );
   
-                #for $<expression> {
-                #$past.push( $($_) );
-                #}
-
-                #for $<key_value_pair> {
-                #$past.push( $($_) );
-                #}
     for $<array_argument> {
         $past.push( $($_) );
     }   
Index: src/common/php_array.pir
===================================================================
--- src/common/php_array.pir	(revision 34496)
+++ src/common/php_array.pir	(working copy)
@@ -78,7 +78,7 @@
         goto args_loop
     add_var:
         array[$I1] = $P0
-        $I1 = $I1 + 1
+        inc $I1
         goto end
     end:
         goto args_loop