Nicholas Clark <[EMAIL PROTECTED]> writes:
> Change 26763 by [EMAIL PROTECTED] on 2006/01/10 10:44:50
>
> Integrate:
> [ 24925]
> Trim trailing whitespace from $! and $^E
[...]
> --- perl/mg.c#93~26689~ 2006-01-06 15:03:51.000000000 -0800
> +++ perl/mg.c 2006-01-10 02:44:50.000000000 -0800
> @@ -569,6 +569,13 @@
> return 0;
> }
>
> +#define SvRTRIM(sv) STMT_START { \
> + STRLEN len = SvCUR(sv); \
> + while (len > 0 && isSPACE(SvPVX(sv)[len-1])) \
> + --len; \
> + SvCUR_set(sv, len); \
This ought to also NUL terminate the string:
*SvEND(sv) = '\0';
> +} STMT_END
> +
> int
> Perl_magic_get(pTHX_ SV *sv, MAGIC *mg)
> {
