Skip to content

Commit 6c69cb7

Browse files
committed
util.c: Remove trailing white space
1 parent 8543a7a commit 6c69cb7

File tree

1 file changed

+20
-20
lines changed

1 file changed

+20
-20
lines changed

util.c

Lines changed: 20 additions & 20 deletions
Original file line numberDiff line numberDiff line change
@@ -1681,9 +1681,9 @@ Perl_write_to_stderr(pTHX_ SV* msv)
16811681

16821682
PERL_ARGS_ASSERT_WRITE_TO_STDERR;
16831683

1684-
if (PL_stderrgv && SvREFCNT(PL_stderrgv)
1684+
if (PL_stderrgv && SvREFCNT(PL_stderrgv)
16851685
&& (io = GvIO(PL_stderrgv))
1686-
&& (mg = SvTIED_mg((const SV *)io, PERL_MAGIC_tiedscalar)))
1686+
&& (mg = SvTIED_mg((const SV *)io, PERL_MAGIC_tiedscalar)))
16871687
Perl_magic_methcall(aTHX_ MUTABLE_SV(io), mg, SV_CONST(PRINT),
16881688
G_SCALAR | G_DISCARD | G_WRITING_TO_STDERR, 1, msv);
16891689
else {
@@ -2174,7 +2174,7 @@ argument list.
21742174
void
21752175
Perl_warner_nocontext(U32 err, const char *pat, ...)
21762176
{
2177-
dTHX;
2177+
dTHX;
21782178
va_list args;
21792179
PERL_ARGS_ASSERT_WARNER_NOCONTEXT;
21802180
va_start(args, pat);
@@ -2307,7 +2307,7 @@ S_ckwarn_common(pTHX_ U32 w)
23072307
} else if (!unpackWARN3(w)) {
23082308
assert(!unpackWARN4(w));
23092309
}
2310-
2310+
23112311
/* Right, dealt with all the special cases, which are implemented as non-
23122312
pointers, so there is a pointer to a real warnings mask. */
23132313
do {
@@ -2466,7 +2466,7 @@ Perl_unlnk(pTHX_ const char *f) /* unlink all versions of a file */
24662466

24672467
#if defined(OEMVS)
24682468
#if (__CHARSET_LIB == 1)
2469-
static int chgfdccsid(int fd, unsigned short ccsid)
2469+
static int chgfdccsid(int fd, unsigned short ccsid)
24702470
{
24712471
attrib_t attr;
24722472
memset(&attr, 0, sizeof(attr));
@@ -2748,7 +2748,7 @@ Perl_my_popen(pTHX_ const char *cmd, const char *mode)
27482748
filedescriptors directly, need to manually switch to the
27492749
default, binary, low-level mode; see PerlIOBuf_open(). */
27502750
PerlLIO_setmode((*mode == 'r'), O_BINARY);
2751-
#endif
2751+
#endif
27522752
PL_forkprocess = 0;
27532753
#ifdef PERL_USES_PL_PIDSTATUS
27542754
hv_clear(PL_pidstatus); /* we have no children */
@@ -4953,7 +4953,7 @@ Perl_debug_hash_seed(pTHX_ bool via_debug_h)
49534953
# endif
49544954

49554955
static void
4956-
S_mem_log_common(enum mem_log_type mlt, const UV n,
4956+
S_mem_log_common(enum mem_log_type mlt, const UV n,
49574957
const UV typesize, const char *type_name, const SV *sv,
49584958
Malloc_t oldalloc, Malloc_t newalloc,
49594959
const char *filename, const int linenumber,
@@ -5089,7 +5089,7 @@ S_mem_log_common(enum mem_log_type mlt, const UV n,
50895089

50905090
Malloc_t
50915091
Perl_mem_log_alloc(const UV n, const UV typesize, const char *type_name,
5092-
Malloc_t newalloc,
5092+
Malloc_t newalloc,
50935093
const char *filename, const int linenumber,
50945094
const char *funcname)
50955095
{
@@ -5103,32 +5103,32 @@ Perl_mem_log_alloc(const UV n, const UV typesize, const char *type_name,
51035103

51045104
Malloc_t
51055105
Perl_mem_log_realloc(const UV n, const UV typesize, const char *type_name,
5106-
Malloc_t oldalloc, Malloc_t newalloc,
5107-
const char *filename, const int linenumber,
5106+
Malloc_t oldalloc, Malloc_t newalloc,
5107+
const char *filename, const int linenumber,
51085108
const char *funcname)
51095109
{
51105110
PERL_ARGS_ASSERT_MEM_LOG_REALLOC;
51115111

51125112
mem_log_common_if(MLT_REALLOC, n, typesize, type_name,
5113-
NULL, oldalloc, newalloc,
5113+
NULL, oldalloc, newalloc,
51145114
filename, linenumber, funcname);
51155115
return newalloc;
51165116
}
51175117

51185118
Malloc_t
5119-
Perl_mem_log_free(Malloc_t oldalloc,
5120-
const char *filename, const int linenumber,
5119+
Perl_mem_log_free(Malloc_t oldalloc,
5120+
const char *filename, const int linenumber,
51215121
const char *funcname)
51225122
{
51235123
PERL_ARGS_ASSERT_MEM_LOG_FREE;
51245124

5125-
mem_log_common_if(MLT_FREE, 0, 0, "", NULL, oldalloc, NULL,
5125+
mem_log_common_if(MLT_FREE, 0, 0, "", NULL, oldalloc, NULL,
51265126
filename, linenumber, funcname);
51275127
return oldalloc;
51285128
}
51295129

51305130
void
5131-
Perl_mem_log_new_sv(const SV *sv,
5131+
Perl_mem_log_new_sv(const SV *sv,
51325132
const char *filename, const int linenumber,
51335133
const char *funcname)
51345134
{
@@ -5140,12 +5140,12 @@ Perl_mem_log_new_sv(const SV *sv,
51405140

51415141
void
51425142
Perl_mem_log_del_sv(const SV *sv,
5143-
const char *filename, const int linenumber,
5143+
const char *filename, const int linenumber,
51445144
const char *funcname)
51455145
{
51465146
PERL_ARGS_ASSERT_MEM_LOG_DEL_SV;
51475147

5148-
mem_log_common_if(MLT_DEL_SV, 0, 0, "", sv, NULL, NULL,
5148+
mem_log_common_if(MLT_DEL_SV, 0, 0, "", sv, NULL, NULL,
51495149
filename, linenumber, funcname);
51505150
}
51515151

@@ -5796,7 +5796,7 @@ Perl_get_db_sub(pTHX_ SV **svp, CV *cv)
57965796
!( (SvTYPE(*svp) == SVt_PVGV)
57975797
&& (GvCV((const GV *)*svp) == cv)
57985798
/* Use GV from the stack as a fallback. */
5799-
&& S_gv_has_usable_name(aTHX_ gv = (GV *)*svp)
5799+
&& S_gv_has_usable_name(aTHX_ gv = (GV *)*svp)
58005800
)
58015801
)
58025802
) {
@@ -5849,7 +5849,7 @@ Perl_my_dirfd(DIR * dir) {
58495849
Perl_croak_nocontext(PL_no_func, "dirfd");
58505850
NOT_REACHED; /* NOTREACHED */
58515851
return 0;
5852-
#endif
5852+
#endif
58535853
}
58545854

58555855
#if !defined(HAS_MKOSTEMP) || !defined(HAS_MKSTEMP)
@@ -5944,7 +5944,7 @@ Perl_get_re_arg(pTHX_ SV *sv) {
59445944
if (SvTYPE(sv) == SVt_REGEXP)
59455945
return (REGEXP*) sv;
59465946
}
5947-
5947+
59485948
return NULL;
59495949
}
59505950

0 commit comments

Comments
 (0)