diff options
| author | Hans Mulder <hansmu@xs4all.nl> | 1999-03-01 08:06:29 -0800 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 1999-03-02 08:22:29 +0000 |
| commit | a12fb9119e8da180ab3c5a7359cb81660e41b805 (patch) | |
| tree | dee179de14c1768ba62dddd30cf81808abd286dd /vms/ext | |
| parent | add94a5806141380fd09a55c646496326315ee82 (diff) | |
| download | perl-a12fb9119e8da180ab3c5a7359cb81660e41b805.tar.gz | |
To: perl5-porters@perl.org, vmsperl@perl.org
Subject: [PATCH5.005_56]Diffs to get 5.005_56 building on VMS
Date: Mon, 01 Mar 1999 16:06:29 -0800
Message-Id: <3.0.6.32.19990301160629.02e09ec0@ous.edu>
From: Dan Sugalski <sugalskd@osshe.edu>
To: perl5-porters@perl.org, vmsperl@perl.org
Subject: [PATCH 5.005_56]vmsish.pm patch
Date: Mon, 01 Mar 1999 20:19:04 -0800
Message-Id: <3.0.6.32.19990301201904.02cff460@ous.edu>
plus Configure regen containing a "solution" to the
crosscompile/multiarch problem.
p4raw-id: //depot/cfgperl@3050
Diffstat (limited to 'vms/ext')
| -rw-r--r-- | vms/ext/vmsish.pm | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/vms/ext/vmsish.pm b/vms/ext/vmsish.pm index 851d576e79..dfb565b326 100644 --- a/vms/ext/vmsish.pm +++ b/vms/ext/vmsish.pm @@ -56,9 +56,9 @@ sub bits { my $bits = 0; my $sememe; foreach $sememe (@_) { - $bits |= 0x01000000, next if $sememe eq 'status' || $sememe eq '$?'; - $bits |= 0x02000000, next if $sememe eq 'exit'; - $bits |= 0x04000000, next if $sememe eq 'time'; + $bits |= 0x20000000, next if $sememe eq 'status' || $sememe eq '$?'; + $bits |= 0x40000000, next if $sememe eq 'exit'; + $bits |= 0x80000000, next if $sememe eq 'time'; } $bits; } |