diff options
| author | Michele Calgaro <michele.calgaro@yahoo.it> | 2025-03-22 14:06:03 +0900 |
|---|---|---|
| committer | Michele Calgaro <michele.calgaro@yahoo.it> | 2025-03-23 10:40:15 +0900 |
| commit | e7c7a00cc24697ba5ce25a236089608091975f5a (patch) | |
| tree | 85fb5906cd3c781cdb5f26b09920860e49e31bb4 /src/modules/perlcore | |
| parent | a2bd363864dea4771da98b4c6f7ba85ca75a3784 (diff) | |
| download | kvirc-e7c7a00c.tar.gz kvirc-e7c7a00c.zip | |
Replace TRUE/FALSE with boolean values true/false
Signed-off-by: Michele Calgaro <michele.calgaro@yahoo.it>
(cherry picked from commit 291b4f5da2f98283b7c98ee90401df7c3cb34dad)
Diffstat (limited to 'src/modules/perlcore')
| -rw-r--r-- | src/modules/perlcore/ppport.h | 8 | ||||
| -rw-r--r-- | src/modules/perlcore/typemap | 8 |
2 files changed, 8 insertions, 8 deletions
diff --git a/src/modules/perlcore/ppport.h b/src/modules/perlcore/ppport.h index 611ecf12..8c8a706d 100644 --- a/src/modules/perlcore/ppport.h +++ b/src/modules/perlcore/ppport.h @@ -192,7 +192,7 @@ __DATA__ #endif /* PERL_REVISION != 5 */ #ifndef ERRSV -# define ERRSV perl_get_sv("@",FALSE) +# define ERRSV perl_get_sv("@",false) #endif #if (PERL_VERSION < 4) || ((PERL_VERSION == 4) && (PERL_SUBVERSION <= 5)) @@ -376,7 +376,7 @@ SV *sv; start_subparse(0), # else /* 5.003_23 onwards */ - start_subparse(FALSE, 0), + start_subparse(false, 0), # endif #endif @@ -426,11 +426,11 @@ SV *sv; #if (PERL_VERSION < 4 || (PERL_VERSION == 4 && PERL_SUBVERSION < 68 )) /* Fetches the SV that keeps the per-interpreter data. */ #define dMY_CXT_SV \ - SV *my_cxt_sv = perl_get_sv(MY_CXT_KEY, FALSE) + SV *my_cxt_sv = perl_get_sv(MY_CXT_KEY, false) #else /* >= perl5.004_68 */ #define dMY_CXT_SV \ SV *my_cxt_sv = *hv_fetch(PL_modglobal, MY_CXT_KEY, \ - sizeof(MY_CXT_KEY)-1, TRUE) + sizeof(MY_CXT_KEY)-1, true) #endif /* < perl5.004_68 */ /* This declaration should be used within all functions that use the diff --git a/src/modules/perlcore/typemap b/src/modules/perlcore/typemap index 1124eb64..8d2c796b 100644 --- a/src/modules/perlcore/typemap +++ b/src/modules/perlcore/typemap @@ -282,7 +282,7 @@ T_STDIO { GV *gv = newGVgen("$Package"); PerlIO *fp = PerlIO_importFILE($var,0); - if ( fp && do_open(gv, "+<&", 3, FALSE, 0, 0, fp) ) + if ( fp && do_open(gv, "+<&", 3, false, 0, 0, fp) ) sv_setsv($arg, sv_bless(newRV((SV*)gv), gv_stashpv("$Package",1))); else $arg = &PL_sv_undef; @@ -290,7 +290,7 @@ T_STDIO T_IN { GV *gv = newGVgen("$Package"); - if ( do_open(gv, "<&", 2, FALSE, 0, 0, $var) ) + if ( do_open(gv, "<&", 2, false, 0, 0, $var) ) sv_setsv($arg, sv_bless(newRV((SV*)gv), gv_stashpv("$Package",1))); else $arg = &PL_sv_undef; @@ -298,7 +298,7 @@ T_IN T_INOUT { GV *gv = newGVgen("$Package"); - if ( do_open(gv, "+<&", 3, FALSE, 0, 0, $var) ) + if ( do_open(gv, "+<&", 3, false, 0, 0, $var) ) sv_setsv($arg, sv_bless(newRV((SV*)gv), gv_stashpv("$Package",1))); else $arg = &PL_sv_undef; @@ -306,7 +306,7 @@ T_INOUT T_OUT { GV *gv = newGVgen("$Package"); - if ( do_open(gv, "+>&", 3, FALSE, 0, 0, $var) ) + if ( do_open(gv, "+>&", 3, false, 0, 0, $var) ) sv_setsv($arg, sv_bless(newRV((SV*)gv), gv_stashpv("$Package",1))); else $arg = &PL_sv_undef; |