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

Timestamp:

07/31/08 11:11:08 (5 months ago)

Author:

fglock

Message:

[v6.pm] fixed array emitter

Files:

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

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

@@ -1793 +1793 @@
          $n->{op2} eq ']' ) {
 
-        if ( ! defined $n->{exp2} ) {
-            # $array[]
-            return '@{ ' . _emit( $n->{exp1} ) . ' }';
-        }
-
         if ( ! defined $n->{exp2}
             && exists $n->{exp1}{array}
@@ -1804 +1799 @@
             # @array[]
             return _emit( $n->{exp1} );
+        }
+
+        if ( ! defined $n->{exp2} ) {
+            # $array[]
+            return '@{ ' . _emit( $n->{exp1} ) . ' }';
         }