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-22 14:27:39 +0900 |
| commit | 291b4f5da2f98283b7c98ee90401df7c3cb34dad (patch) | |
| tree | a28eb1a3c46756a6c6dbf3cdaa7bd88807d237c8 /src/modules/perlcore | |
| parent | 1f1b292b68c4fe5d4843dba00eff77b431e6bc12 (diff) | |
| download | kvirc-291b4f5da2f98283b7c98ee90401df7c3cb34dad.tar.gz kvirc-291b4f5da2f98283b7c98ee90401df7c3cb34dad.zip | |
Replace TRUE/FALSE with boolean values true/false
Signed-off-by: Michele Calgaro <michele.calgaro@yahoo.it>
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 611ecf1..8c8a706 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 1124eb6..8d2c796 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; |