diff options
| author | Robin Houston <robin@cpan.org> | 2005-10-29 22:33:07 +0100 |
|---|---|---|
| committer | H.Merijn Brand <h.m.brand@xs4all.nl> | 2005-11-02 12:49:54 +0000 |
| commit | 9850bf21fc4ed69d8ddb0293df59411f891c62df (patch) | |
| tree | 047a29a8cd2d04148aa15000e1307651d86afe8a /op.c | |
| parent | bda6ed216cf53718fff278193bffd2c4078fb377 (diff) | |
| download | perl-9850bf21fc4ed69d8ddb0293df59411f891c62df.tar.gz | |
sort/multicall patch
Message-ID: <20051029203307.GA8869@rpc142.cs.man.ac.uk>
p4raw-id: //depot/perl@25953
Diffstat (limited to 'op.c')
| -rw-r--r-- | op.c | 3 |
1 files changed, 0 insertions, 3 deletions
@@ -4345,9 +4345,6 @@ Perl_newATTRSUB(pTHX_ I32 floor, OP *o, OP *proto, OP *attrs, OP *block) SAVEFREESV(PL_compcv); goto done; } - /* ahem, death to those who redefine active sort subs */ - if (PL_curstackinfo->si_type == PERLSI_SORT && PL_sortcop == CvSTART(cv)) - Perl_croak(aTHX_ "Can't redefine active sort subroutine %s", name); if (block) { if (ckWARN(WARN_REDEFINE) || (CvCONST(cv) |