From: Nick Ing-Simmons Date: Sat, 24 Mar 2001 11:29:41 +0000 (+0000) Subject: Generated files. X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=c60e0e098045567c2313456d074b4094292b050c;p=p5sagit%2Fp5-mst-13.2.git Generated files. p4raw-id: //depot/perlio@9319 --- diff --git a/embed.h b/embed.h index 83afb92..4dc1773 100644 --- a/embed.h +++ b/embed.h @@ -433,6 +433,7 @@ #if !defined(PERL_OBJECT) #define my_pclose Perl_my_pclose #define my_popen Perl_my_popen +#define my_popen_list Perl_my_popen_list #endif #define my_setenv Perl_my_setenv #define my_stat Perl_my_stat @@ -1924,6 +1925,7 @@ #if !defined(PERL_OBJECT) #define my_pclose(a) Perl_my_pclose(aTHX_ a) #define my_popen(a,b) Perl_my_popen(aTHX_ a,b) +#define my_popen_list(a,b,c) Perl_my_popen_list(aTHX_ a,b,c) #endif #define my_setenv(a,b) Perl_my_setenv(aTHX_ a,b) #define my_stat() Perl_my_stat(aTHX) @@ -3767,6 +3769,8 @@ #define my_pclose Perl_my_pclose #define Perl_my_popen CPerlObj::Perl_my_popen #define my_popen Perl_my_popen +#define Perl_my_popen_list CPerlObj::Perl_my_popen_list +#define my_popen_list Perl_my_popen_list #endif #define Perl_my_setenv CPerlObj::Perl_my_setenv #define my_setenv Perl_my_setenv diff --git a/global.sym b/global.sym index 49d4e85..1895fbf 100644 --- a/global.sym +++ b/global.sym @@ -233,6 +233,7 @@ Perl_my_memcmp Perl_my_memset Perl_my_pclose Perl_my_popen +Perl_my_popen_list Perl_my_setenv Perl_my_stat Perl_my_swap diff --git a/objXSUB.h b/objXSUB.h index cce7f6f..5643637 100644 --- a/objXSUB.h +++ b/objXSUB.h @@ -914,6 +914,10 @@ #define Perl_my_popen pPerl->Perl_my_popen #undef my_popen #define my_popen Perl_my_popen +#undef Perl_my_popen_list +#define Perl_my_popen_list pPerl->Perl_my_popen_list +#undef my_popen_list +#define my_popen_list Perl_my_popen_list #endif #undef Perl_my_setenv #define Perl_my_setenv pPerl->Perl_my_setenv diff --git a/perlapi.c b/perlapi.c index 9de8725..bf08bff 100644 --- a/perlapi.c +++ b/perlapi.c @@ -1684,6 +1684,13 @@ Perl_my_popen(pTHXo_ char* cmd, char* mode) { return ((CPerlObj*)pPerl)->Perl_my_popen(cmd, mode); } + +#undef Perl_my_popen_list +PerlIO* +Perl_my_popen_list(pTHXo_ char* mode, int n, SV ** args) +{ + return ((CPerlObj*)pPerl)->Perl_my_popen_list(mode, n, args); +} #endif #undef Perl_my_setenv diff --git a/proto.h b/proto.h index 3e3a5d2..5a6ef0b 100644 --- a/proto.h +++ b/proto.h @@ -499,6 +499,7 @@ PERL_CALLCONV void* Perl_my_memset(char* loc, I32 ch, I32 len); #if !defined(PERL_OBJECT) PERL_CALLCONV I32 Perl_my_pclose(pTHX_ PerlIO* ptr); PERL_CALLCONV PerlIO* Perl_my_popen(pTHX_ char* cmd, char* mode); +PERL_CALLCONV PerlIO* Perl_my_popen_list(pTHX_ char* mode, int n, SV ** args); #endif PERL_CALLCONV void Perl_my_setenv(pTHX_ char* nam, char* val); PERL_CALLCONV I32 Perl_my_stat(pTHX);