# 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
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
