To get a clean build, I needed to apply #26593 and also the attached
patch that accounts for a couple of functions whose prototypes are not
yet consted in maint.

After that it builds ok and yields the following test failures, none of
which fails in blead:

t/io/fs...................................FAILED at test 5
t/op/incfilter............................FAILED--unexpected output at test 12 t/op/utftaint.............................FAILED--unexpected output at test 86
t/uni/overload............................FAILED at test 34
t/lib/vmsfspec............................FAILED at test 56
ext/List/Util/t/p_tainted.................FAILED--no leader found
lib/ExtUtils/t/basic......................FAILED at test 67
lib/ExtUtils/t/FIRST_MAKEFILE.............FAILED at test 4
lib/ExtUtils/t/PL_FILES...................FAILED at test 3
lib/Test/Simple/t/is_deeply_fail..........FAILED at test 73
Failed 10 test scripts out of 937, 98.93% okay.

I will try this again soon as I think further integrations since 29870
have probably fixed a couple of these.
--- vms/vms.c;-0        Tue Jun 13 14:31:43 2006
+++ vms/vms.c   Wed Jan 17 21:02:05 2007
@@ -3228,7 +3228,7 @@ safe_popen(pTHX_ const char *cmd, const 
 
 /*{{{  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 @@ Perl_vms_do_aexec(pTHX_ SV *really,SV **
 
 /* {{{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;
 
--- vms/vmsish.h;-0     Tue Jun 13 14:31:43 2006
+++ vms/vmsish.h        Wed Jan 17 19:52:51 2007
@@ -856,7 +856,7 @@ I32 Perl_cando_by_name (pTHX_ I32, Uid_t
 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 *);

Reply via email to