This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Cut-and-pasto in #11298.
authorJarkko Hietaniemi <jhi@iki.fi>
Thu, 12 Jul 2001 12:46:20 +0000 (12:46 +0000)
committerJarkko Hietaniemi <jhi@iki.fi>
Thu, 12 Jul 2001 12:46:20 +0000 (12:46 +0000)
p4raw-id: //depot/perl@11303

ext/ByteLoader/bytecode.h

index c88c470..ca9509f 100644 (file)
@@ -132,8 +132,8 @@ typedef IV IV64;
        hv_store((HV*)sv, bstate->bs_pv.xpv_pv, bstate->bs_pv.xpv_cur, arg, 0)
 #define BSET_pv_free(pv)       Safefree(pv.xpv_pv)
 #define BSET_pregcomp(o, arg) \
-       (PM_SETRE((((PMOP*)o), arg ? \
-               CALLREGCOMP(aTHX_ arg, arg + bstate->bs_pv.xpv_cur, ((PMOP*)o)) : 0)))
+       (PM_SETRE(((PMOP*)o), (arg ? \
+               CALLREGCOMP(aTHX_ arg, arg + bstate->bs_pv.xpv_cur, ((PMOP*)o)) : 0)))
 #define BSET_newsv(sv, arg)                            \
        STMT_START {                                    \
            sv = (arg == SVt_PVAV ? (SV*)newAV() :      \