VMS: with this, 100% make test in Compaq C V6.5-001

on OpenVMS Alpha V7.3-1, from Craig Berry.

p4raw-id: //depot/perl@19921

diff --git a/configure.com b/configure.com
index 54b6673..156daa6 100644 (file)
--- a/configure.com
+++ b/configure.com
@@ -5376,6 +5376,7 @@ $ WC "d_msghdr_s='undef'"
 $ WC "d_msync='" + d_msync + "'"
 $ WC "d_munmap='" + d_munmap + "'"
 $ WC "d_mymalloc='" + d_mymalloc + "'"
+$ WC "d_nanosleep='undef'"
 $ WC "d_nice='define'"
 $ WC "d_nl_langinfo='" + d_nl_langinfo + "'"
 $ WC "d_nv_preserves_uv='" + d_nv_preserves_uv + "'"

diff --git a/ext/Devel/DProf/DProf.t b/ext/Devel/DProf/DProf.t
index de4064d..ac66fb3 100644 (file)
--- a/ext/Devel/DProf/DProf.t
+++ b/ext/Devel/DProf/DProf.t
@@ -58,7 +58,7 @@ sub profile {
                print @results
        }
 
-        print '# ',timestr( $t_total, 'nop' ), "\n";
+        print '# ' . timestr( $t_total, 'nop' ), "\n";
 }
 
 

diff --git a/t/op/magic.t b/t/op/magic.t
index b386e40..28e66d9 100755 (executable)
--- a/t/op/magic.t
+++ b/t/op/magic.t
@@ -264,7 +264,7 @@ ok $^O;
 ok $^T > 850000000, $^T;
 
 if ($Is_VMS || $Is_Dos || $Is_MacOS) {
-    skip("%ENV manipulations fail or aren't safe on $^O") for 1..3;
+    skip("%ENV manipulations fail or aren't safe on $^O") for 1..4;
 }
 else {
        $PATH = $ENV{PATH};