diff options
| author | Alan Burlison <Alan.Burlison@uk.sun.com> | 2005-11-04 16:33:30 +0000 |
|---|---|---|
| committer | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2005-11-04 16:35:17 +0000 |
| commit | b0269e46d70f4b0ab23ffad2f94b10b64091afa3 (patch) | |
| tree | decdaeec830e613bfc9b56e003f6d70d4605b75d /embed.h | |
| parent | bff98e240ae94e05cc03de1adde32b5bee958718 (diff) | |
| download | perl-b0269e46d70f4b0ab23ffad2f94b10b64091afa3.tar.gz | |
use clearenv if available
Message-ID: <436B8D5A.4010502@sun.com>
p4raw-id: //depot/perl@25996
Diffstat (limited to 'embed.h')
| -rw-r--r-- | embed.h | 6 |
1 files changed, 6 insertions, 0 deletions
@@ -1651,6 +1651,9 @@ #endif #ifndef SPRINTF_RETURNS_STRLEN #endif +#ifdef PERL_CORE +#define my_clearenv Perl_my_clearenv +#endif #define ck_anoncode Perl_ck_anoncode #define ck_bitop Perl_ck_bitop #define ck_concat Perl_ck_concat @@ -3637,6 +3640,9 @@ #endif #ifndef SPRINTF_RETURNS_STRLEN #endif +#ifdef PERL_CORE +#define my_clearenv() Perl_my_clearenv(aTHX) +#endif #define ck_anoncode(a) Perl_ck_anoncode(aTHX_ a) #define ck_bitop(a) Perl_ck_bitop(aTHX_ a) #define ck_concat(a) Perl_ck_concat(aTHX_ a) |