Change 30158 by [EMAIL PROTECTED] on 2007/02/07 16:33:27
Subject: [PATCH [EMAIL PROTECTED] VMS build help
From: "Craig A. Berry" <[EMAIL PROTECTED]>
Message-ID: <[EMAIL PROTECTED]>
Date: Thu, 18 Jan 2007 13:59:10 -0600
Affected files ...
... //depot/maint-5.8/perl/vms/vms.c#22 edit
... //depot/maint-5.8/perl/vms/vmsish.h#13 edit
Differences ...
==== //depot/maint-5.8/perl/vms/vms.c#22 (text) ====
Index: perl/vms/vms.c
--- perl/vms/vms.c#21~28112~ 2006-05-05 13:21:42.000000000 -0700
+++ perl/vms/vms.c 2007-02-07 08:33:27.000000000 -0800
@@ -3228,7 +3228,7 @@
/*{{{ PerlIO *my_popen(char *cmd, char *mode)*/
PerlIO *
-Perl_my_popen(pTHX_ const char *cmd, const char *mode)
+Perl_my_popen(pTHX_ char *cmd, char *mode)
{
int sts;
TAINT_ENV();
@@ -6419,7 +6419,7 @@
/* {{{bool vms_do_exec(char *cmd) */
bool
-Perl_vms_do_exec(pTHX_ const char *cmd)
+Perl_vms_do_exec(pTHX_ char *cmd)
{
struct dsc$descriptor_s *vmscmd;
==== //depot/maint-5.8/perl/vms/vmsish.h#13 (text) ====
Index: perl/vms/vmsish.h
--- perl/vms/vmsish.h#12~28112~ 2006-05-05 13:21:42.000000000 -0700
+++ perl/vms/vmsish.h 2007-02-07 08:33:27.000000000 -0800
@@ -856,7 +856,7 @@
int Perl_flex_fstat (pTHX_ int, Stat_t *);
int Perl_flex_stat (pTHX_ const char *, Stat_t *);
int my_vfork (void);
-bool Perl_vms_do_exec (pTHX_ const char *);
+bool Perl_vms_do_exec (pTHX_ char *);
unsigned long int Perl_do_aspawn (pTHX_ void *, void **, void **);
unsigned long int Perl_do_spawn (pTHX_ const char *);
FILE * my_fdopen (int, const char *);
End of Patch.
