This is a live mirror of the Perl 5 development currently hosted at
https://github.com/perl/perl5
https://perl5.git.perl.org
/
perl5.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
| inline |
side by side
(parent:
8ad4a85
)
cpp commands must start (the # must be) at the column #0.
author
Jarkko Hietaniemi
<jhi@iki.fi>
Fri, 10 Aug 2001 13:45:48 +0000
(13:45 +0000)
committer
Jarkko Hietaniemi
<jhi@iki.fi>
Fri, 10 Aug 2001 13:45:48 +0000
(13:45 +0000)
p4raw-id: //depot/perl@11628
op.c
patch
|
blob
|
blame
|
history
diff --git
a/op.c
b/op.c
index
daefb14
..
52fd74d
100644
(file)
--- a/
op.c
+++ b/
op.c
@@
-2961,14
+2961,14
@@
Perl_newPMOP(pTHX_ I32 type, I32 flags)
pmop->op_pmpermflags |= PMf_LOCALE;
pmop->op_pmflags = pmop->op_pmpermflags;
-
#ifdef USE_ITHREADS
+#ifdef USE_ITHREADS
{
SV* repointer = newSViv(0);
av_push(PL_regex_padav,SvREFCNT_inc(repointer));
pmop->op_pmoffset = av_len(PL_regex_padav);
PL_regex_pad = AvARRAY(PL_regex_padav);
}
-
#endif
+#endif
/* link into pm list */
if (type != OP_TRANS && PL_curstash) {