summaryrefslogtreecommitdiff
path: root/taint.c
diff options
context:
space:
mode:
authorGurusamy Sarathy <gsar@cpan.org>1999-06-09 18:03:01 +0000
committerGurusamy Sarathy <gsar@cpan.org>1999-06-09 18:03:01 +0000
commitcea2e8a9dd23747fd2b66edc86c58c64e9970321 (patch)
tree50e1ad203239e885681b4e804c46363e763ca432 /taint.c
parentf019efd000a9017df645fb6c4cce1e7401ac9445 (diff)
downloadperl-cea2e8a9dd23747fd2b66edc86c58c64e9970321.tar.gz
more complete support for implicit thread/interpreter pointer,
enabled via -DPERL_IMPLICIT_CONTEXT (all changes are noops without that enabled): - USE_THREADS now enables PERL_IMPLICIT_CONTEXT, so dTHR is a noop; tests pass on Solaris; should be faster now! - MULTIPLICITY has been tested with and without PERL_IMPLICIT_CONTEXT on Solaris - improved function database now merged with embed.pl - everything except the varargs functions have foo(a,b,c) macros to provide compatibility - varargs functions default to compatibility variants that get the context pointer using dTHX - there should be almost no source compatibility issues as a result of all this - dl_foo.xs changes other than dl_dlopen.xs untested - still needs documentation, fixups for win32 etc Next step: migrate most non-mutex variables from perlvars.h to intrpvar.h p4raw-id: //depot/perl@3524
Diffstat (limited to 'taint.c')
-rw-r--r--taint.c4
1 files changed, 2 insertions, 2 deletions
diff --git a/taint.c b/taint.c
index 4d000a1b36..0fe6f3286a 100644
--- a/taint.c
+++ b/taint.c
@@ -27,9 +27,9 @@ Perl_taint_proper(pTHX_ const char *f, char *s)
else
ug = " while running with -T switch";
if (!PL_unsafe)
- croak(f, s, ug);
+ Perl_croak(aTHX_ f, s, ug);
else if (ckWARN(WARN_TAINT))
- warner(WARN_TAINT, f, s, ug);
+ Perl_warner(aTHX_ WARN_TAINT, f, s, ug);
}
}