From 44d953555e27ad82767a45a50377ed7bb15c4a4a Mon Sep 17 00:00:00 2001
From: Jarkko Hietaniemi <jhi@iki.fi>
Date: Wed, 2 Jul 2003 05:26:33 +0000
Subject: [PATCH 1/1] 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
---
 configure.com           | 1 +
 ext/Devel/DProf/DProf.t | 2 +-
 t/op/magic.t            | 2 +-
 3 files changed, 3 insertions(+), 2 deletions(-)

diff --git a/configure.com b/configure.com
index 54b6673..156daa6 100644
--- 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
--- 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
--- 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};
-- 
1.8.3.1