From d07077ccb1603dbe7825b6fa721a5e5e922b807e Mon Sep 17 00:00:00 2001 From: Nicholas Clark Date: Fri, 8 Dec 2006 21:09:57 +0000 Subject: [PATCH] No need to upgrade if all we're going to do is return. p4raw-id: //depot/perl@29486 --- util.c | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/util.c b/util.c index 114e6ad..3ba64e0 100644 --- a/util.c +++ b/util.c @@ -490,9 +490,9 @@ Perl_fbm_compile(pTHX_ SV *sv, U32 flags) mg->mg_len++; } s = (U8*)SvPV_force_mutable(sv, len); - SvUPGRADE(sv, SVt_PVBM); if (len == 0) /* TAIL might be on a zero-length string. */ return; + SvUPGRADE(sv, SVt_PVBM); if (len > 2) { const unsigned char *sb; const U8 mlen = (len>255) ? 255 : (U8)len; -- 1.8.3.1