[inseparable changes from patch from perl5.003_18 to perl5.003_19]

[p5sagit/p5-mst-13.2.git] / util.c

diff --git a/util.c b/util.c
index 99c6f41..5329c5a 100644 (file)
--- a/util.c
+++ b/util.c
@@ -1099,7 +1099,7 @@ mess(pat, args)
     if (usermess) {
        tmpstr = sv_newmortal();
        sv_setpv(tmpstr, va_arg(*args, char *));
-       *s++ = SvPVX(tmpstr)[SvCUR(tmpstr)-1];
+       *s++ = SvCUR(tmpstr) ? SvPVX(tmpstr)[SvCUR(tmpstr)-1] : ' ';
     }
     else {
        (void) vsprintf(s,pat,*args);