From: Nicholas Clark <nick@ccl4.org>
Date: Fri, 8 Dec 2006 21:09:57 +0000 (+0000)
Subject: No need to upgrade if all we're going to do is return.
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=d07077ccb1603dbe7825b6fa721a5e5e922b807e;p=p5sagit%2Fp5-mst-13.2.git

No need to upgrade if all we're going to do is return.

p4raw-id: //depot/perl@29486
---

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;