diff options
| author | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2002-04-07 19:34:10 +0000 |
|---|---|---|
| committer | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2002-04-07 19:34:10 +0000 |
| commit | 47644a3c2d1cec197deba13ae99db7cea2c8893c (patch) | |
| tree | 8392a858899693f0ae21edbd817f8075fee708f2 /sv.c | |
| parent | dc269ea5a5f74293383de95acec021ca37b82da5 (diff) | |
| download | perl-47644a3c2d1cec197deba13ae99db7cea2c8893c.tar.gz | |
Fully qualify in warning message the name of a subroutine redefined
via glob assignment
p4raw-id: //depot/perl@15789
Diffstat (limited to 'sv.c')
| -rw-r--r-- | sv.c | 5 |
1 files changed, 3 insertions, 2 deletions
@@ -3839,8 +3839,9 @@ Perl_sv_setsv_flags(pTHX_ SV *dstr, register SV *sstr, I32 flags) { Perl_warner(aTHX_ packWARN(WARN_REDEFINE), CvCONST(cv) - ? "Constant subroutine %s redefined" - : "Subroutine %s redefined", + ? "Constant subroutine %s::%s redefined" + : "Subroutine %s::%s redefined", + HvNAME(GvSTASH((GV*)dstr)), GvENAME((GV*)dstr)); } } |