This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Sync up the function definitions for Perl_my_popen with the prototype.
authorSteve Peters <steve@fisharerojo.org>
Sat, 18 Nov 2006 05:42:14 +0000 (05:42 +0000)
committerSteve Peters <steve@fisharerojo.org>
Sat, 18 Nov 2006 05:42:14 +0000 (05:42 +0000)
p4raw-id: //depot/perl@29314

util.c

diff --git a/util.c b/util.c
index d9fde3e..af1e22a 100644 (file)
--- a/util.c
+++ b/util.c
@@ -2415,7 +2415,7 @@ Perl_my_popen(pTHX_ const char *cmd, const char *mode)
 #if defined(atarist) || defined(EPOC)
 FILE *popen();
 PerlIO *
-Perl_my_popen(pTHX_ char *cmd, char *mode)
+Perl_my_popen((pTHX_ const char *cmd, const char *mode)
 {
     PERL_FLUSHALL_FOR_CHILD;
     /* Call system's popen() to get a FILE *, then import it.
@@ -2428,7 +2428,7 @@ Perl_my_popen(pTHX_ char *cmd, char *mode)
 #if defined(DJGPP)
 FILE *djgpp_popen();
 PerlIO *
-Perl_my_popen(pTHX_ char *cmd, char *mode)
+Perl_my_popen((pTHX_ const char *cmd, const char *mode)
 {
     PERL_FLUSHALL_FOR_CHILD;
     /* Call system's popen() to get a FILE *, then import it.