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

Timestamp:

07/30/08 22:43:35 (5 months ago)

Author:

fglock

Message:

[v6.pm] operator fixes

Files:

• perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm (modified) (1 diff)

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

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