From: Nicholas Clark <nick@ccl4.org>
Date: Sun, 30 Apr 2006 22:00:34 +0000 (+0000)
Subject: Replace a STRLEN no_len; with a _nolen macro call.
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=56eb0262cf56fc0680c7c9ab97c66f67c16df4f0;p=p5sagit%2Fp5-mst-13.2.git

Replace a STRLEN no_len; with a _nolen macro call.

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

diff --git a/pp_pack.c b/pp_pack.c
index 61af698..5deede9 100644
--- a/pp_pack.c
+++ b/pp_pack.c
@@ -2370,14 +2370,13 @@ void
 Perl_packlist(pTHX_ SV *cat, const char *pat, const char *patend, register SV **beglist, SV **endlist )
 {
     dVAR;
-    STRLEN no_len;
     tempsym_t sym;
 
     TEMPSYM_INIT(&sym, pat, patend, FLAG_PACK);
 
     /* We're going to do changes through SvPVX(cat). Make sure it's valid.
        Also make sure any UTF8 flag is loaded */
-    SvPV_force(cat, no_len);
+    SvPV_force_nolen(cat);
     if (DO_UTF8(cat))
 	sym.flags |= FLAG_PARSE_UTF8 | FLAG_DO_UTF8;