This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
fix typo in vms/gen_shrfls.pl itanium detector
authorCraig A. Berry <craigberry@mac.com>
Sun, 2 Apr 2006 01:09:38 +0000 (01:09 +0000)
committerCraig A. Berry <craigberry@mac.com>
Sun, 2 Apr 2006 01:09:38 +0000 (01:09 +0000)
p4raw-id: //depot/perl@27669

vms/gen_shrfls.pl

index 5fc9165..98afe30 100644 (file)
@@ -60,7 +60,7 @@ $isvax = `\$ Write Sys\$Output \(F\$GetSyI(\"HW_MODEL\") .LE. 1024 .AND. F\$GetS
 chomp $isvax;
 print "\$isvax: \\$isvax\\\n" if $debug;
 
-$isi64 = `\$ Write Sys\$Output \(F\$GetSyI(\"HW_MODEL\") .GE. 4096`;
+$isi64 = `\$ Write Sys\$Output \(F\$GetSyI(\"HW_MODEL\") .GE. 4096)`;
 chomp $isi64;
 print "\$isi64: \\$isi64\\\n" if $debug;