Change 19921 by [EMAIL PROTECTED] on 2003/07/02 05:26:33
VMS: with this, 100% make test in Compaq C V6.5-001
on OpenVMS Alpha V7.3-1, from Craig Berry.
Affected files ...
... //depot/perl/configure.com#181 edit
... //depot/perl/ext/Devel/DProf/DProf.t#4 edit
... //depot/perl/t/op/magic.t#62 edit
Differences ...
==== //depot/perl/configure.com#181 (text) ====
Index: perl/configure.com
--- perl/configure.com#180~19897~ Mon Jun 30 22:04:50 2003
+++ perl/configure.com Tue Jul 1 22:26:33 2003
@@ -5376,6 +5376,7 @@
$ 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 + "'"
==== //depot/perl/ext/Devel/DProf/DProf.t#4 (text) ====
Index: perl/ext/Devel/DProf/DProf.t
--- perl/ext/Devel/DProf/DProf.t#3~14341~ Sat Jan 19 08:06:56 2002
+++ perl/ext/Devel/DProf/DProf.t Tue Jul 1 22:26:33 2003
@@ -58,7 +58,7 @@
print @results
}
- print '# ',timestr( $t_total, 'nop' ), "\n";
+ print '# ' . timestr( $t_total, 'nop' ), "\n";
}
==== //depot/perl/t/op/magic.t#62 (xtext) ====
Index: perl/t/op/magic.t
--- perl/t/op/magic.t#61~19916~ Tue Jul 1 09:51:31 2003
+++ perl/t/op/magic.t Tue Jul 1 22:26:33 2003
@@ -264,7 +264,7 @@
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};
End of Patch.
