tweak change#2245 to skip previous message if any

p4raw-link: @2245 on //depot/perl: a99e4ac224ca891463a7704e48b83906ece3bb7c

p4raw-id: //depot/perl@2248

1 files changed, 4 insertions, 2 deletions

diff --git a/pp_ctl.c b/pp_ctl.c
index e4b8a739fa..e081fa554d 100644
--- a/pp_ctl.c
+++ b/pp_ctl.c
@@ -1253,8 +1253,10 @@ die_where(char *message)
 			SvGROW(err, SvCUR(err)+sizeof(prefix)+klen);
 			sv_catpvn(err, prefix, sizeof(prefix)-1);
 			sv_catpvn(err, message, klen);
-			if (ckWARN(WARN_UNSAFE))
-			    warner(WARN_UNSAFE, SvPVX(err));
+			if (ckWARN(WARN_UNSAFE)) {
+			    STRLEN start = SvCUR(err)-klen-sizeof(prefix)+1;
+			    warner(WARN_UNSAFE, SvPVX(err)+start);
+			}
 		    }
 		    sv_inc(*svp);
 		}