diff options
| author | Daniel Dragan <bulk88@hotmail.com> | 2013-05-09 14:03:59 +0100 |
|---|---|---|
| committer | David Mitchell <davem@iabyn.com> | 2013-05-09 14:03:59 +0100 |
| commit | 3231f5793f6a3d7ee78eb1d68feb05c064b33315 (patch) | |
| tree | e86ce8f2fb68dd2edffc4e39edf9a204a4d31884 /perl.c | |
| parent | 299ef33b5b1be54a2b467cd78c9139096e32314a (diff) | |
| download | perl-3231f5793f6a3d7ee78eb1d68feb05c064b33315.tar.gz | |
fix threaded NO_TAINT_SUPPORT build errors
NO_TAINT_SUPPORT incorrectly called Perl_croak without aTHX_.
To fix this, change Perl_croak to Perl_croak_nocontext, since it is
slightly more efficient in instruction size than Perl_croak.
Diffstat (limited to 'perl.c')
| -rw-r--r-- | perl.c | 10 |
1 files changed, 5 insertions, 5 deletions
@@ -1883,7 +1883,7 @@ S_parse_body(pTHX_ char **env, XSINIT_t xsinit) #if SILENT_NO_TAINT_SUPPORT /* silently ignore */ #elif NO_TAINT_SUPPORT - Perl_croak("This perl was compiled without taint support. " + Perl_croak_nocontext("This perl was compiled without taint support. " "Cowardly refusing to run with -t or -T flags"); #else CHECK_MALLOC_TOO_LATE_FOR('t'); @@ -1898,7 +1898,7 @@ S_parse_body(pTHX_ char **env, XSINIT_t xsinit) #if SILENT_NO_TAINT_SUPPORT /* silently ignore */ #elif NO_TAINT_SUPPORT - Perl_croak("This perl was compiled without taint support. " + Perl_croak_nocontext("This perl was compiled without taint support. " "Cowardly refusing to run with -t or -T flags"); #else CHECK_MALLOC_TOO_LATE_FOR('T'); @@ -2015,7 +2015,7 @@ S_parse_body(pTHX_ char **env, XSINIT_t xsinit) #if SILENT_NO_TAINT_SUPPORT /* silently ignore */ #elif NO_TAINT_SUPPORT - Perl_croak("This perl was compiled without taint support. " + Perl_croak_nocontext("This perl was compiled without taint support. " "Cowardly refusing to run with -t or -T flags"); #else CHECK_MALLOC_TOO_LATE_FOR('T'); @@ -2054,7 +2054,7 @@ S_parse_body(pTHX_ char **env, XSINIT_t xsinit) #if SILENT_NO_TAINT_SUPPORT /* silently ignore */ #elif NO_TAINT_SUPPORT - Perl_croak("This perl was compiled without taint support. " + Perl_croak_nocontext("This perl was compiled without taint support. " "Cowardly refusing to run with -t or -T flags"); #else if( !TAINTING_get) { @@ -3383,7 +3383,7 @@ Perl_moreswitches(pTHX_ const char *s) #if SILENT_NO_TAINT_SUPPORT /* silently ignore */ #elif NO_TAINT_SUPPORT - Perl_croak("This perl was compiled without taint support. " + Perl_croak_nocontext("This perl was compiled without taint support. " "Cowardly refusing to run with -t or -T flags"); #else if (!TAINTING_get) |