Skip to content

Commit 6250472

Browse files
demerphqdemerphq
committed
WS Cleanup Stage #8 - join short continuations
1 parent b147dc5 commit 6250472

File tree

12 files changed

+69
-113
lines changed

12 files changed

+69
-113
lines changed

‎av.h

Lines changed: 2 additions & 3 deletions
Original file line numberDiff line numberDiff line change
@@ -93,9 +93,8 @@ need is to look up an array element, then prefer C<av_fetch>.
9393

9494
#define AvREALISH(av) (SvFLAGS(av) & (SVpav_REAL|SVpav_REIFY))
9595

96-
#define AvFILL(av) \
97-
((SvRMAGICAL((const SV *) (av))) \
98-
? mg_size(MUTABLE_SV(av)) : AvFILLp(av))
96+
#define AvFILL(av) \
97+
((SvRMAGICAL((const SV *) (av))) ? mg_size(MUTABLE_SV(av)) : AvFILLp(av))
9998
#define av_top_index(av) AvFILL(av)
10099
#define av_tindex(av) av_top_index(av)
101100

‎cop.h

Lines changed: 13 additions & 21 deletions
Original file line numberDiff line numberDiff line change
@@ -559,8 +559,7 @@ typedef struct rcpv RCPV;
559559
# define CopFILE(c) ((c)->cop_file)
560560
# define CopFILE_LEN(c) (CopFILE(c) ? RCPV_LEN(CopFILE(c)) : 0)
561561
# define CopFILEGV(c) \
562-
(CopFILE(c) \
563-
? gv_fetchfile(CopFILE(c)) : NULL)
562+
(CopFILE(c) ? gv_fetchfile(CopFILE(c)) : NULL)
564563

565564
# define CopFILE_set_x(c,pv) \
566565
((c)->cop_file = rcpv_new((pv),0,RCPVf_USE_STRLEN))
@@ -607,11 +606,9 @@ typedef struct rcpv RCPV;
607606

608607

609608
# define CopFILESV(c) \
610-
(CopFILE(c) \
611-
? GvSV(gv_fetchfile(CopFILE(c))) : NULL)
609+
(CopFILE(c) ? GvSV(gv_fetchfile(CopFILE(c))) : NULL)
612610
# define CopFILEAV(c) \
613-
(CopFILE(c) \
614-
? GvAV(gv_fetchfile(CopFILE(c))) : NULL)
611+
(CopFILE(c) ? GvAV(gv_fetchfile(CopFILE(c))) : NULL)
615612
# define CopFILEAVx(c) \
616613
(assert_(CopFILE(c)) \
617614
GvAV(gv_fetchfile(CopFILE(c))))
@@ -1144,22 +1141,17 @@ struct context {
11441141
#define CXp_ONCE 0x10 /* What was sbu_once in struct subst */
11451142

11461143
#define CxTYPE(c) ((c)->cx_type & CXTYPEMASK)
1147-
#define CxTYPE_is_LOOP(c) \
1148-
( CxTYPE(cx) >= CXt_LOOP_ARY \
1149-
&& CxTYPE(cx) <= CXt_LOOP_PLAIN)
1144+
#define CxTYPE_is_LOOP(c) \
1145+
( CxTYPE(cx) >= CXt_LOOP_ARY && CxTYPE(cx) <= CXt_LOOP_PLAIN)
11501146
#define CxMULTICALL(c) ((c)->cx_type & CXp_MULTICALL)
1151-
#define CxREALEVAL(c) \
1152-
(((c)->cx_type & (CXTYPEMASK|CXp_REAL)) \
1153-
== (CXt_EVAL|CXp_REAL))
1154-
#define CxEVALBLOCK(c) \
1155-
(((c)->cx_type & (CXTYPEMASK|CXp_EVALBLOCK)) \
1156-
== (CXt_EVAL|CXp_EVALBLOCK))
1157-
#define CxTRY(c) \
1158-
(((c)->cx_type & (CXTYPEMASK|CXp_TRY)) \
1159-
== (CXt_EVAL|CXp_TRY))
1160-
#define CxFOREACH(c) \
1161-
( CxTYPE(cx) >= CXt_LOOP_ARY \
1162-
&& CxTYPE(cx) <= CXt_LOOP_LIST)
1147+
#define CxREALEVAL(c) \
1148+
(((c)->cx_type & (CXTYPEMASK|CXp_REAL)) == (CXt_EVAL|CXp_REAL))
1149+
#define CxEVALBLOCK(c) \
1150+
(((c)->cx_type & (CXTYPEMASK|CXp_EVALBLOCK)) == (CXt_EVAL|CXp_EVALBLOCK))
1151+
#define CxTRY(c) \
1152+
(((c)->cx_type & (CXTYPEMASK|CXp_TRY)) == (CXt_EVAL|CXp_TRY))
1153+
#define CxFOREACH(c) \
1154+
( CxTYPE(cx) >= CXt_LOOP_ARY && CxTYPE(cx) <= CXt_LOOP_LIST)
11631155

11641156
/* private flags for CXt_DEFER */
11651157
#define CXp_FINALLY 0x20 /* `finally` block; semantically identical

‎handy.h

Lines changed: 3 additions & 5 deletions
Original file line numberDiff line numberDiff line change
@@ -1440,8 +1440,7 @@ or casts
14401440
/* The '| 0' part in ASSERT_NOT_PTR ensures a compiler error
14411441
* if c is not integer (like e.g., a pointer) */
14421442
# define FITS_IN_8_BITS(c) \
1443-
( (sizeof(c) == 1) \
1444-
|| (((WIDEST_UTYPE) ASSERT_NOT_PTR(c)) >> 8) == 0)
1443+
( (sizeof(c) == 1) || (((WIDEST_UTYPE) ASSERT_NOT_PTR(c)) >> 8) == 0)
14451444
#else
14461445
# define FITS_IN_8_BITS(c) (1)
14471446
#endif
@@ -2771,9 +2770,8 @@ PoisonWith(0xEF) for catching access to freed memory.
27712770
((_MEM_WRAP_NEEDS_RUNTIME_CHECK(n,t) ? (MEM_SIZE)(n) : \
27722771
MEM_SIZE_MAX/sizeof(t)) > MEM_SIZE_MAX/sizeof(t))
27732772

2774-
# define MEM_WRAP_CHECK(n,t) \
2775-
(void)(UNLIKELY(_MEM_WRAP_WILL_WRAP(n,t)) \
2776-
&& (croak_memory_wrap(),0))
2773+
# define MEM_WRAP_CHECK(n,t) \
2774+
(void)(UNLIKELY(_MEM_WRAP_WILL_WRAP(n,t)) && (croak_memory_wrap(),0))
27772775

27782776
# define MEM_WRAP_CHECK_1(n,t,a) \
27792777
(void)(UNLIKELY(_MEM_WRAP_WILL_WRAP(n,t)) \

‎hv_macro.h

Lines changed: 2 additions & 3 deletions
Original file line numberDiff line numberDiff line change
@@ -35,9 +35,8 @@
3535
#define U8TO32_LE(ptr) (*((const U32*)(ptr)))
3636
#define U8TO64_LE(ptr) (*((const U64*)(ptr)))
3737
#else
38-
#define U8TO16_LE(ptr) \
39-
(_shifted_octet(U16,(ptr),0, 0)| \
40-
_shifted_octet(U16,(ptr),1, 8))
38+
#define U8TO16_LE(ptr) \
39+
(_shifted_octet(U16,(ptr),0, 0)| _shifted_octet(U16,(ptr),1, 8))
4140

4241
#define U8TO32_LE(ptr) \
4342
(_shifted_octet(U32,(ptr),0, 0)| \

‎op.h

Lines changed: 4 additions & 6 deletions
Original file line numberDiff line numberDiff line change
@@ -528,12 +528,10 @@ typedef enum {
528528
# define IS_PADCONST(v) \
529529
(v && (SvREADONLY(v) || (SvIsCOW(v) && !SvLEN(v))))
530530
# endif
531-
# define cSVOPx_sv(v) \
532-
(cSVOPx(v)->op_sv \
533-
? cSVOPx(v)->op_sv : PAD_SVl((v)->op_targ))
534-
# define cSVOPx_svp(v) \
535-
(cSVOPx(v)->op_sv \
536-
? &cSVOPx(v)->op_sv : &PAD_SVl((v)->op_targ))
531+
# define cSVOPx_sv(v) \
532+
(cSVOPx(v)->op_sv ? cSVOPx(v)->op_sv : PAD_SVl((v)->op_targ))
533+
# define cSVOPx_svp(v) \
534+
(cSVOPx(v)->op_sv ? &cSVOPx(v)->op_sv : &PAD_SVl((v)->op_targ))
537535
# define cMETHOPx_meth(v) \
538536
(cMETHOPx(v)->op_u.op_meth_sv \
539537
? cMETHOPx(v)->op_u.op_meth_sv : PAD_SVl((v)->op_targ))

‎op_reg_common.h

Lines changed: 1 addition & 2 deletions
Original file line numberDiff line numberDiff line change
@@ -113,8 +113,7 @@ get_regex_charset(const U32 flags)
113113
| RXf_PMf_STRICT )
114114

115115
#define RXf_PMf_FLAGCOPYMASK \
116-
( RXf_PMf_COMPILETIME \
117-
| RXf_PMf_SPLIT )
116+
( RXf_PMf_COMPILETIME | RXf_PMf_SPLIT )
118117

119118
/* Temporary to get Jenkins happy again See thread starting at
120119
* http://nntp.perl.org/group/perl.perl5.porters/220710

‎perl.h

Lines changed: 4 additions & 7 deletions
Original file line numberDiff line numberDiff line change
@@ -292,9 +292,8 @@ Now a synonym for C<L</dTHXa>>.
292292
# define CALLREGDUPE(prog,param) \
293293
Perl_re_dup(aTHX_ (prog),(param))
294294

295-
# define CALLREGDUPE_PVT(prog,param) \
296-
(prog ? RX_ENGINE(prog)->dupe(aTHX_ (prog),(param)) \
297-
: (REGEXP *)NULL)
295+
# define CALLREGDUPE_PVT(prog,param) \
296+
(prog ? RX_ENGINE(prog)->dupe(aTHX_ (prog),(param)) : (REGEXP *)NULL)
298297
#endif
299298

300299
/* some compilers impersonate gcc */
@@ -6891,8 +6890,7 @@ typedef struct am_table_short AMTS;
68916890
/* Returns TRUE if the plain locale pragma
68926891
* without a parameter is in effect. */
68936892
# define IN_LOCALE_RUNTIME \
6894-
(PL_curcop \
6895-
&& CopHINTS_get(PL_curcop) & HINT_LOCALE)
6893+
(PL_curcop && CopHINTS_get(PL_curcop) & HINT_LOCALE)
68966894

68976895
/* Returns TRUE if either form of the locale pragma is in effect */
68986896
# define IN_SOME_LOCALE_FORM_RUNTIME \
@@ -8167,8 +8165,7 @@ extern void moncontrol(int);
81678165
PERL_UNICODE_STDERR_FLAG)
81688166

81698167
#define PERL_UNICODE_INOUT_FLAG \
8170-
(PERL_UNICODE_IN_FLAG | \
8171-
PERL_UNICODE_OUT_FLAG)
8168+
(PERL_UNICODE_IN_FLAG | PERL_UNICODE_OUT_FLAG)
81728169

81738170
#define PERL_UNICODE_DEFAULT_FLAGS \
81748171
(PERL_UNICODE_STD_FLAG | \

‎regcomp.h

Lines changed: 4 additions & 6 deletions
Original file line numberDiff line numberDiff line change
@@ -407,12 +407,10 @@ struct regnode_ssc {
407407
(((struct regnode_lstring *)p)->string))
408408
#define OPERANDl(p) STRINGl(p)
409409

410-
#define STR_LEN(p) \
411-
((OP(p) == LEXACT || OP(p) == LEXACT_REQ8) \
412-
? STR_LENl(p) : STR_LENs(p))
413-
#define STRING(p) \
414-
((OP(p) == LEXACT || OP(p) == LEXACT_REQ8) \
415-
? STRINGl(p) : STRINGs(p))
410+
#define STR_LEN(p) \
411+
((OP(p) == LEXACT || OP(p) == LEXACT_REQ8) ? STR_LENl(p) : STR_LENs(p))
412+
#define STRING(p) \
413+
((OP(p) == LEXACT || OP(p) == LEXACT_REQ8) ? STRINGl(p) : STRINGs(p))
416414
#define OPERAND(p) STRING(p)
417415

418416
/* The number of (smallest) regnode equivalents that a string of length l bytes

‎regcomp_internal.h

Lines changed: 11 additions & 17 deletions
Original file line numberDiff line numberDiff line change
@@ -420,9 +420,8 @@ struct RExC_state_t {
420420
RExC_naughty += RExC_naughty / (exp) + (add)
421421

422422
#define isNON_BRACE_QUANTIFIER(c) ((c) == '*' || (c) == '+' || (c) == '?')
423-
#define isQUANTIFIER(s,e) \
424-
( isNON_BRACE_QUANTIFIER(*s) \
425-
|| ((*s) == '{' && regcurly(s, e, NULL)))
423+
#define isQUANTIFIER(s,e) \
424+
( isNON_BRACE_QUANTIFIER(*s) || ((*s) == '{' && regcurly(s, e, NULL)))
426425

427426
/*
428427
* Flags to be passed up.
@@ -744,22 +743,17 @@ static const scan_data_t zero_scan_data = {
744743

745744
/* The enums for all these are ordered so things work out correctly */
746745
#define LOC (get_regex_charset(RExC_flags) == REGEX_LOCALE_CHARSET)
747-
#define DEPENDS_SEMANTICS \
748-
(get_regex_charset(RExC_flags) \
749-
== REGEX_DEPENDS_CHARSET)
746+
#define DEPENDS_SEMANTICS \
747+
(get_regex_charset(RExC_flags) == REGEX_DEPENDS_CHARSET)
750748
#define UNI_SEMANTICS (get_regex_charset(RExC_flags) == REGEX_UNICODE_CHARSET)
751-
#define AT_LEAST_UNI_SEMANTICS \
752-
(get_regex_charset(RExC_flags) \
753-
>= REGEX_UNICODE_CHARSET)
754-
#define ASCII_RESTRICTED \
755-
(get_regex_charset(RExC_flags) \
756-
== REGEX_ASCII_RESTRICTED_CHARSET)
749+
#define AT_LEAST_UNI_SEMANTICS \
750+
(get_regex_charset(RExC_flags) >= REGEX_UNICODE_CHARSET)
751+
#define ASCII_RESTRICTED \
752+
(get_regex_charset(RExC_flags) == REGEX_ASCII_RESTRICTED_CHARSET)
757753
#define AT_LEAST_ASCII_RESTRICTED \
758-
(get_regex_charset(RExC_flags) \
759-
>= REGEX_ASCII_RESTRICTED_CHARSET)
760-
#define ASCII_FOLD_RESTRICTED \
761-
(get_regex_charset(RExC_flags) \
762-
== REGEX_ASCII_MORE_RESTRICTED_CHARSET)
754+
(get_regex_charset(RExC_flags) >= REGEX_ASCII_RESTRICTED_CHARSET)
755+
#define ASCII_FOLD_RESTRICTED \
756+
(get_regex_charset(RExC_flags) == REGEX_ASCII_MORE_RESTRICTED_CHARSET)
763757

764758
#define FOLD cBOOL(RExC_flags & RXf_PMf_FOLD)
765759

‎regexp.h

Lines changed: 3 additions & 6 deletions
Original file line numberDiff line numberDiff line change
@@ -554,17 +554,14 @@ SvRX instead and check for NULL.
554554

555555
/* For source compatibility. We used to store these explicitly. */
556556
# define RX_PRECOMP(rx_sv) \
557-
(RX_WRAPPED(rx_sv) \
558-
+ ReANY(rx_sv)->pre_prefix)
557+
(RX_WRAPPED(rx_sv) + ReANY(rx_sv)->pre_prefix)
559558
# define RX_PRECOMP_const(rx_sv) \
560-
(RX_WRAPPED_const(rx_sv) \
561-
+ ReANY(rx_sv)->pre_prefix)
559+
(RX_WRAPPED_const(rx_sv) + ReANY(rx_sv)->pre_prefix)
562560
/* FIXME? Are we hardcoding too much here and constraining plugin extension
563561
writers? Specifically, the value 1 assumes that the wrapped version always
564562
has exactly one character at the end, a ')'. Will that always be true? */
565563
# define RX_PRELEN(rx_sv) \
566-
(RX_WRAPLEN(rx_sv) \
567-
- ReANY(rx_sv)->pre_prefix - 1)
564+
(RX_WRAPLEN(rx_sv) - ReANY(rx_sv)->pre_prefix - 1)
568565

569566
# define RX_WRAPPED(rx_sv) SvPVX(rx_sv)
570567
# define RX_WRAPPED_const(rx_sv) SvPVX_const(rx_sv)

‎sv.h

Lines changed: 21 additions & 35 deletions
Original file line numberDiff line numberDiff line change
@@ -445,13 +445,11 @@ the upgrade if necessary. See C<L</svtype>>.
445445

446446

447447

448-
#define SVf_THINKFIRST \
449-
(SVf_READONLY|SVf_PROTECT|SVf_ROK|SVf_FAKE \
450-
|SVs_RMG|SVf_IsCOW)
448+
#define SVf_THINKFIRST \
449+
(SVf_READONLY|SVf_PROTECT|SVf_ROK|SVf_FAKE |SVs_RMG|SVf_IsCOW)
451450

452-
#define SVf_OK \
453-
(SVf_IOK|SVf_NOK|SVf_POK|SVf_ROK| \
454-
SVp_IOK|SVp_NOK|SVp_POK|SVpgv_GP)
451+
#define SVf_OK \
452+
(SVf_IOK|SVf_NOK|SVf_POK|SVf_ROK| SVp_IOK|SVp_NOK|SVp_POK|SVpgv_GP)
455453

456454
#define PRIVSHIFT 4 /* (SVp_?OK >> PRIVSHIFT) == SVf_?OK */
457455

@@ -948,9 +946,8 @@ Set the size of the string buffer for the SV. See C<L</SvLEN>>.
948946

949947
#define SvNIOK(sv) (SvFLAGS(sv) & (SVf_IOK|SVf_NOK))
950948
#define SvNIOKp(sv) (SvFLAGS(sv) & (SVp_IOK|SVp_NOK))
951-
#define SvNIOK_off(sv) \
952-
(SvFLAGS(sv) &= ~(SVf_IOK|SVf_NOK| \
953-
SVp_IOK|SVp_NOK|SVf_IVisUV))
949+
#define SvNIOK_off(sv) \
950+
(SvFLAGS(sv) &= ~(SVf_IOK|SVf_NOK| SVp_IOK|SVp_NOK|SVf_IVisUV))
954951

955952
#define assert_not_ROK(sv) assert_(!SvROK(sv) || !SvRV(sv))
956953
#define assert_not_glob(sv) assert_(!isGV_with_GP(sv))
@@ -985,19 +982,16 @@ Set the size of the string buffer for the SV. See C<L</SvLEN>>.
985982
SvFLAGS(sv) |= (SVf_IOK|SVp_IOK))
986983
#define SvIOK_off(sv) (SvFLAGS(sv) &= ~(SVf_IOK|SVp_IOK|SVf_IVisUV))
987984
#define SvIOK_only(sv) \
988-
(SvOK_off(sv), \
989-
SvFLAGS(sv) |= (SVf_IOK|SVp_IOK))
985+
(SvOK_off(sv), SvFLAGS(sv) |= (SVf_IOK|SVp_IOK))
990986
#define SvIOK_only_UV(sv) \
991987
(assert_not_glob(sv) SvOK_off_exc_UV(sv), \
992988
SvFLAGS(sv) |= (SVf_IOK|SVp_IOK))
993989

994-
#define SvIOK_UV(sv) \
995-
((SvFLAGS(sv) & (SVf_IOK|SVf_IVisUV)) \
996-
== (SVf_IOK|SVf_IVisUV))
990+
#define SvIOK_UV(sv) \
991+
((SvFLAGS(sv) & (SVf_IOK|SVf_IVisUV)) == (SVf_IOK|SVf_IVisUV))
997992
#define SvUOK(sv) SvIOK_UV(sv)
998-
#define SvIOK_notUV(sv) \
999-
((SvFLAGS(sv) & (SVf_IOK|SVf_IVisUV)) \
1000-
== SVf_IOK)
993+
#define SvIOK_notUV(sv) \
994+
((SvFLAGS(sv) & (SVf_IOK|SVf_IVisUV)) == SVf_IOK)
1001995

1002996
#define SvIandPOK(sv) \
1003997
((SvFLAGS(sv) & (SVf_IOK|SVf_POK)) == (SVf_IOK|SVf_POK))
@@ -1013,11 +1007,9 @@ Set the size of the string buffer for the SV. See C<L</SvLEN>>.
10131007
(SvIsCOW_static(sv) && \
10141008
(SvPVX_const(sv) == PL_Yes || SvPVX_const(sv) == PL_No))
10151009
#define BOOL_INTERNALS_sv_isbool_true(sv) \
1016-
(SvIsCOW_static(sv) && \
1017-
(SvPVX_const(sv) == PL_Yes))
1010+
(SvIsCOW_static(sv) && (SvPVX_const(sv) == PL_Yes))
10181011
#define BOOL_INTERNALS_sv_isbool_false(sv) \
1019-
(SvIsCOW_static(sv) && \
1020-
(SvPVX_const(sv) == PL_No))
1012+
(SvIsCOW_static(sv) && (SvPVX_const(sv) == PL_No))
10211013

10221014
#define SvIsUV(sv) (SvFLAGS(sv) & SVf_IVisUV)
10231015
#define SvIsUV_on(sv) (SvFLAGS(sv) |= SVf_IVisUV)
@@ -1029,8 +1021,7 @@ Set the size of the string buffer for the SV. See C<L</SvLEN>>.
10291021
SvFLAGS(sv) |= (SVf_NOK|SVp_NOK))
10301022
#define SvNOK_off(sv) (SvFLAGS(sv) &= ~(SVf_NOK|SVp_NOK))
10311023
#define SvNOK_only(sv) \
1032-
(SvOK_off(sv), \
1033-
SvFLAGS(sv) |= (SVf_NOK|SVp_NOK))
1024+
(SvOK_off(sv), SvFLAGS(sv) |= (SVf_NOK|SVp_NOK))
10341025

10351026
/*
10361027
=for apidoc Am|U32|SvUTF8|SV* sv
@@ -1080,8 +1071,7 @@ the UTF-8 status as it was.
10801071
SvFLAGS(sv) |= (SVf_POK|SVp_POK))
10811072

10821073
#define SvVOK(sv) \
1083-
(SvMAGICAL(sv) \
1084-
&& mg_find(sv,PERL_MAGIC_vstring))
1074+
(SvMAGICAL(sv) && mg_find(sv,PERL_MAGIC_vstring))
10851075
/*
10861076
=for apidoc Am|MAGIC*|SvVSTRING_mg|SV * sv
10871077
@@ -1090,8 +1080,7 @@ Returns the vstring magic, or NULL if none
10901080
=cut
10911081
*/
10921082
#define SvVSTRING_mg(sv) \
1093-
(SvMAGICAL(sv) \
1094-
? mg_find(sv,PERL_MAGIC_vstring) : NULL)
1083+
(SvMAGICAL(sv) ? mg_find(sv,PERL_MAGIC_vstring) : NULL)
10951084

10961085
#define SvOOK(sv) (SvFLAGS(sv) & SVf_OOK)
10971086
#define SvOOK_on(sv) (SvFLAGS(sv) |= SVf_OOK)
@@ -1140,9 +1129,8 @@ Returns a boolean as to whether C<sv> has overloading
11401129
=cut
11411130
*/
11421131

1143-
#define SvAMAGIC(sv) \
1144-
(SvROK(sv) && SvOBJECT(SvRV(sv)) && \
1145-
HvAMAGIC(SvSTASH(SvRV(sv))))
1132+
#define SvAMAGIC(sv) \
1133+
(SvROK(sv) && SvOBJECT(SvRV(sv)) && HvAMAGIC(SvSTASH(SvRV(sv))))
11461134

11471135
/* To be used on the stashes themselves: */
11481136
#define HvAMAGIC(hv) (SvFLAGS(hv) & SVf_AMAGIC)
@@ -1216,9 +1204,8 @@ is true then the scalar's value cannot change unless written to.
12161204
? 1 \
12171205
: (HvAMAGIC_off(stash), 0))
12181206

1219-
#define SvWEAKREF(sv) \
1220-
((SvFLAGS(sv) & (SVf_ROK|SVprv_WEAKREF)) \
1221-
== (SVf_ROK|SVprv_WEAKREF))
1207+
#define SvWEAKREF(sv) \
1208+
((SvFLAGS(sv) & (SVf_ROK|SVprv_WEAKREF)) == (SVf_ROK|SVprv_WEAKREF))
12221209
#define SvWEAKREF_on(sv) (SvFLAGS(sv) |= (SVf_ROK|SVprv_WEAKREF))
12231210
#define SvWEAKREF_off(sv) (SvFLAGS(sv) &= ~(SVf_ROK|SVprv_WEAKREF))
12241211

@@ -2432,8 +2419,7 @@ already have a PV buffer allocated, but no SvTHINKFIRST.
24322419

24332420
/* the SvREADONLY() test is to quickly reject most SVs */
24342421
#define SvIMMORTAL(sv) \
2435-
( SvREADONLY(sv) \
2436-
&& (SvIMMORTAL_INTERP(sv) || (sv) == &PL_sv_placeholder))
2422+
( SvREADONLY(sv) && (SvIMMORTAL_INTERP(sv) || (sv) == &PL_sv_placeholder))
24372423

24382424
#ifdef DEBUGGING
24392425
/* exercise the immortal resurrection code in sv_free2() */

‎util.h

Lines changed: 1 addition & 2 deletions
Original file line numberDiff line numberDiff line change
@@ -25,8 +25,7 @@
2525
|| ((f)[0] && (f)[1] == ':')) /* drive name */
2626
#elif defined(DOSISH)
2727
# define PERL_FILE_IS_ABSOLUTE(f) \
28-
(*(f) == '/' \
29-
|| ((f)[0] && (f)[1] == ':')) /* drive name */
28+
(*(f) == '/' || ((f)[0] && (f)[1] == ':')) /* drive name */
3029
#else /* NOT DOSISH */
3130
# define PERL_FILE_IS_ABSOLUTE(f) (*(f) == '/')
3231
#endif

0 commit comments

Comments
 (0)