diff options
| author | Hans Mulder <hansmu@xs4all.nl> | 1998-06-19 09:00:57 -0700 |
|---|---|---|
| committer | Gurusamy Sarathy <gsar@cpan.org> | 1998-06-21 06:58:37 +0000 |
| commit | b2b3adea477dea9f31a8a3c4fccce7b061ebfe62 (patch) | |
| tree | 3818c462e89dcde36bf0642032fb7f1b63f4589d /vms | |
| parent | 429a5e67a8cd7868f6400fb40a70246ad7548973 (diff) | |
| download | perl-b2b3adea477dea9f31a8a3c4fccce7b061ebfe62.tar.gz | |
fixup patches for VMS
Message-Id: <3.0.5.32.19980619160057.032e7480@ous.edu>
p4raw-id: //depot/perl@1175
Diffstat (limited to 'vms')
| -rw-r--r-- | vms/test.com | 2 | ||||
| -rw-r--r-- | vms/vms.c | 3 |
2 files changed, 3 insertions, 2 deletions
diff --git a/vms/test.com b/vms/test.com index f131088dda..81dfc4603b 100644 --- a/vms/test.com +++ b/vms/test.com @@ -162,7 +162,7 @@ while ($test = shift) { } else { $switch = ''; } - open(results,"\$ MCR Sys\$Disk:[]Perl. $switch $test |") || (print "can't run.\n"); + open(results,"\$ MCR Sys\$Disk:[]Perl. \"-I[-.lib]\" $switch $test |") || (print "can't run.\n"); $ok = 0; $next = 0; while (<results>) { @@ -203,7 +203,8 @@ prime_env_iter(void) $DESCRIPTOR(clidsc,"DCL"); $DESCRIPTOR(tabdsc,"DCLTABLES"); $DESCRIPTOR(mbxdsc,mbxnam); #ifdef USE_THREADS - static perl_mutex primenv_mutex = PTHREAD_MUTEX_INITIALIZER; + static perl_mutex primenv_mutex; + MUTEX_INIT(&primenv_mutex); #endif if (primed) return; |