diff options
| author | Ilya Zakharevich <ilya@math.berkeley.edu> | 1998-03-02 16:36:02 -0500 |
|---|---|---|
| committer | Malcolm Beattie <mbeattie@sable.ox.ac.uk> | 1998-03-05 19:04:34 +0000 |
| commit | 2f34f9d4825ac9262ece854fc4c50479f4838ff8 (patch) | |
| tree | 5d59502cebf6b8a413033b2d67ad85a099a5a30a /sv.c | |
| parent | d6582e46845f6c37893e96dbdd201cd0601d3550 (diff) | |
| download | perl-2f34f9d4825ac9262ece854fc4c50479f4838ff8.tar.gz | |
Make autouse -w-safe
p4raw-id: //depot/perl@781
Diffstat (limited to 'sv.c')
| -rw-r--r-- | sv.c | 11 |
1 files changed, 8 insertions, 3 deletions
@@ -2063,9 +2063,14 @@ sv_setsv(SV *dstr, register SV *sstr) if (cv_const_sv(cv)) warn("Constant subroutine %s redefined", GvENAME((GV*)dstr)); - else if (dowarn) - warn("Subroutine %s redefined", - GvENAME((GV*)dstr)); + else if (dowarn) { + if (!(CvGV(cv) && GvSTASH(CvGV(cv)) + && HvNAME(GvSTASH(CvGV(cv))) + && strEQ(HvNAME(GvSTASH(CvGV(cv))), + "autouse"))) + warn("Subroutine %s redefined", + GvENAME((GV*)dstr)); + } } cv_ckproto(cv, (GV*)dstr, SvPOK(sref) ? SvPVX(sref) : Nullch); |