diff options
| author | Charles Lane <lane@DUPHY4.Physics.Drexel.Edu> | 2000-10-12 03:30:02 -0400 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2000-10-12 23:41:19 +0000 |
| commit | e4dfc136d9a3d82ffa8f71e721a4dfe58fd3bad2 (patch) | |
| tree | ce0330742726e1853298a07664dc2e3713400e22 /vms/gen_shrfls.pl | |
| parent | cbe7f703579edec09c7919d264de0a404e5d0f16 (diff) | |
| download | perl-e4dfc136d9a3d82ffa8f71e721a4dfe58fd3bad2.tar.gz | |
5.6.0 & 5.7.1, VMS fixes
Message-Id: <001012072828.2eabc@DUPHY4.Physics.Drexel.Edu>
p4raw-id: //depot/perl@7208
Diffstat (limited to 'vms/gen_shrfls.pl')
| -rw-r--r-- | vms/gen_shrfls.pl | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/vms/gen_shrfls.pl b/vms/gen_shrfls.pl index a109f7bdfd..68bb6e8e60 100644 --- a/vms/gen_shrfls.pl +++ b/vms/gen_shrfls.pl @@ -328,6 +328,7 @@ if ($ENV{PERLSHR_USE_GSMATCH}) { # number in the top four bits and use the bottom four for build options # that'll cause incompatibilities ($ver, $sub) = $] =~ /\.(\d\d\d)(\d\d)/; + $ver += 0; $sub += 0; $gsmatch = ($sub >= 50) ? "equal" : "lequal"; # Force an equal match for # dev, but be more forgiving # for releases |