Changeset 21535 for perl5

Show
Ignore:
Timestamp:
07/25/08 16:56:03 (6 months ago)
Author:
fglock
Message:

[v6.pm] added error msg

Files:
1 modified

Legend:

Unmodified
Added
Removed

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

    r21534 r21535  
    905905            if ($n->{method}{dot_bareword} eq 'elems') { 
    906906                return "( scalar "._emit( $n->{self} )." )"; 
     907            } 
     908            if ($n->{method}{bareword} eq '<>') { 
     909                return _not_implemented("<>", "array method"); 
    907910            } 
    908911            return _emit( $n->{method} ).' '.