From 6f698202e5ae120e98ec531d30dc8ff690fa41f5 Mon Sep 17 00:00:00 2001 From: Abhijit Menon-Sen Date: Mon, 27 Oct 2003 09:00:08 +0000 Subject: Will the real off by one please stand up? p4raw-id: //depot/perl@21546 --- mg.c | 9 +++++---- 1 file changed, 5 insertions(+), 4 deletions(-) (limited to 'mg.c') diff --git a/mg.c b/mg.c index 95fc54dd22..245acd7fb2 100644 --- a/mg.c +++ b/mg.c @@ -2400,10 +2400,11 @@ Perl_magic_set(pTHX_ SV *sv, MAGIC *mg) #endif /* PL_origalen is set in perl_parse(). */ s = SvPV_force(sv,len); - if (len >= (STRLEN)PL_origalen) { - /* Longer than original, will be truncated. */ - Copy(s, PL_origargv[0], PL_origalen, char); - PL_origargv[0][PL_origalen] = 0; + if (len >= (STRLEN)PL_origalen-1) { + /* Longer than original, will be truncated. We assume that + * PL_origalen bytes are available. */ + Copy(s, PL_origargv[0], PL_origalen-1, char); + PL_origargv[0][PL_origalen-1] = 0; } else { /* Shorter than original, will be padded. */ -- cgit v1.2.1