Lots of VMS changes. vms/gen_shrfls.pl (which parses header files)

needs rewriting now that we use perlvars.h and foovar.h:
	Subject: [PATCH] 5.004_54 under VMS (fwd)

p4raw-id: //depot/perl@374

3 files changed, 6 insertions, 3 deletions

diff --git a/t/lib/thread.t b/t/lib/thread.t
index 5ac9e5bf71..9810ae48d9 100755
--- a/t/lib/thread.t
+++ b/t/lib/thread.t
@@ -4,7 +4,7 @@ BEGIN {
     chdir 't' if -d 't';
     @INC = '../lib';
     require Config; import Config;
-    if ($Config{'ccflags'} !~ /-DUSE_THREADS\b/) {
+    if ($Config{'ccflags'} !~ /USE_THREADS\b/) {
 	print "1..0\n";
 	exit 0;
     }
@@ -49,6 +49,6 @@ join $t;
 
 # test that sleep lets other thread run
 $t = new Thread \&islocked,"ok 8\n";
-sleep 2;
+sleep 6;
 print "ok 9";
 join $t;
diff --git a/t/lib/timelocal.t b/t/lib/timelocal.t
index adc1b1b061..938ca695b1 100755
--- a/t/lib/timelocal.t
+++ b/t/lib/timelocal.t
@@ -19,6 +19,9 @@ use Time::Local;
    [2010, 10, 12, 14, 13, 12],
   );
 
+# use vmsish 'time' makes for oddness around the Unix epoch
+if ($^O eq 'VMS') { $time[0][2]++ }
+
 print "1..", @time * 2 + 5, "\n";
 
 $count = 1;
diff --git a/t/op/nothread.t b/t/op/nothread.t
index acc20890ae..7d42d276c8 100755
--- a/t/op/nothread.t
+++ b/t/op/nothread.t
@@ -9,7 +9,7 @@ BEGIN
   @INC = "../lib";
   require Config;
   import Config;
-  if ($Config{'ccflags'} =~ /-DUSE_THREADS\b/)
+  if ($Config{'ccflags'} =~ /USE_THREADS\b/)
    {
     print "1..0\n";
     exit 0;