Changeset 21535

Timestamp:

07/25/08 16:56:03 (6 months ago)

Author:

fglock

Message:

[v6.pm] added error msg

Files:

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

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

@@ -905 +905 @@
             if ($n->{method}{dot_bareword} eq 'elems') {
                 return "( scalar "._emit( $n->{self} )." )";
+            }
+            if ($n->{method}{bareword} eq '<>') {
+                return _not_implemented("<>", "array method");
             }
             return _emit( $n->{method} ).' '.