summaryrefslogtreecommitdiff
path: root/perl.h
diff options
context:
space:
mode:
authorJarkko Hietaniemi <jhi@iki.fi>2002-03-18 14:39:15 +0000
committerJarkko Hietaniemi <jhi@iki.fi>2002-03-18 14:39:15 +0000
commit48c6b404cfbd1c2c7ca26e9a9abd0c281bc5836f (patch)
treedfa745a711f2bb8d0dce658945d73bdd69c3819a /perl.h
parent44513350cdc313b5a0c1fcf32a9a2db7a735db03 (diff)
downloadperl-48c6b404cfbd1c2c7ca26e9a9abd0c281bc5836f.tar.gz
Make regex DEBUGGING faster.
p4raw-id: //depot/perl@15297
Diffstat (limited to 'perl.h')
-rw-r--r--perl.h2
1 files changed, 1 insertions, 1 deletions
diff --git a/perl.h b/perl.h
index f7bf179930..02e3f9c60e 100644
--- a/perl.h
+++ b/perl.h
@@ -3183,7 +3183,7 @@ struct perl_debug_pad {
};
#define PERL_DEBUG_PAD(i) &(PL_debug_pad.pad[i])
-#define PERL_DEBUG_PAD_ZERO(i) (sv_setpvn(PERL_DEBUG_PAD(i), "", 0), PERL_DEBUG_PAD(i))
+#define PERL_DEBUG_PAD_ZERO(i) (SvPVX(PERL_DEBUG_PAD(i))[0] = 0, SvCUR(PERL_DEBUG_PAD(i)) = 0, PERL_DEBUG_PAD(i))
/* Enable variables which are pointers to functions */
typedef void (CPERLscope(*peep_t))(pTHX_ OP* o);