X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=sv.c;h=e3b95808f6e97212c13f643b584d036e8112dd9d;hb=80a5d8e74b5512d4ab704d0e83466ae41247ce55;hp=80dc9ea47b4309c8fac4db00a535170acde05892;hpb=004283b80f6094bb85aba6f48a74e3c5c34ea24f;p=p5sagit%2Fp5-mst-13.2.git

diff --git a/sv.c b/sv.c
index 80dc9ea..e3b9580 100644
--- a/sv.c
+++ b/sv.c
@@ -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));
  				}
 			    }