@@ -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.
21742174void
21752175Perl_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
49554955static 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
50905090Malloc_t
50915091Perl_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
51045104Malloc_t
51055105Perl_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
51185118Malloc_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
51305130void
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
51415141void
51425142Perl_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