diff options
| author | Craig A. Berry <craigberry@mac.com> | 2003-12-18 12:19:43 -0600 |
|---|---|---|
| committer | Nicholas Clark <nick@ccl4.org> | 2003-12-20 20:07:44 +0000 |
| commit | a50752f9a67249b5bcecc4771bbaacc13beb2cf9 (patch) | |
| tree | 2f388d688b910d52109ca3b2ef8565e9bb61b67c /vms/gen_shrfls.pl | |
| parent | effac55b77f4596996ae79e1587910a279ff86f1 (diff) | |
| download | perl-a50752f9a67249b5bcecc4771bbaacc13beb2cf9.tar.gz | |
OpenVMS I64 support
From: "Craig A. Berry" <craigberry@mac.com>
Message-ID: <3FE2441F.2070603@mac.com>
Date: Thu, 18 Dec 2003 18:19:43 -0600
p4raw-id: //depot/perl@21933
Diffstat (limited to 'vms/gen_shrfls.pl')
| -rw-r--r-- | vms/gen_shrfls.pl | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/vms/gen_shrfls.pl b/vms/gen_shrfls.pl index 3cdd3ef84a..f8bf6b190b 100644 --- a/vms/gen_shrfls.pl +++ b/vms/gen_shrfls.pl @@ -39,7 +39,7 @@ require 5.000; $debug = $ENV{'GEN_SHRFLS_DEBUG'}; -print "gen_shrfls.pl Rev. 18-May-2001\n" if $debug; +print "gen_shrfls.pl Rev. 18-Dec-2003\n" if $debug; if ($ARGV[0] eq '-f') { open(INP,$ARGV[1]) or die "Can't read input file $ARGV[1]: $!\n"; @@ -56,7 +56,8 @@ if ($ARGV[0] eq '-f') { $cc_cmd = shift @ARGV; # Someday, we'll have $GetSyI built into perl . . . -$isvax = `\$ Write Sys\$Output F\$GetSyI(\"HW_MODEL\")` <= 1024; +$isvax = `\$ Write Sys\$Output \(F\$GetSyI(\"HW_MODEL\") .LE. 1024 .AND. F\$GetSyI(\"HW_MODEL\") .GT. 0\)`; +chomp $isvax; print "\$isvax: \\$isvax\\\n" if $debug; print "Input \$cc_cmd: \\$cc_cmd\\\n" if $debug; |