This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
cpp commands must start (the # must be) at the column #0.
authorJarkko Hietaniemi <jhi@iki.fi>
Fri, 10 Aug 2001 13:45:48 +0000 (13:45 +0000)
committerJarkko Hietaniemi <jhi@iki.fi>
Fri, 10 Aug 2001 13:45:48 +0000 (13:45 +0000)
p4raw-id: //depot/perl@11628

op.c

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;
 
        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);
         }
         {
                 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) {
         
         /* link into pm list */
     if (type != OP_TRANS && PL_curstash) {