diff options
| author | Charles Bailey <bailey@newman.upenn.edu> | 2000-10-20 04:44:37 +0000 |
|---|---|---|
| committer | bailey <bailey@newman.upenn.edu> | 2000-10-20 04:44:37 +0000 |
| commit | 22d4bb9ccb8701e68f9243547d7e3a3c55f70908 (patch) | |
| tree | d2e7714cc660a21e8bf2624c99646b0cb001e40c /vms/gen_shrfls.pl | |
| parent | 4b19af017623bfa3bb72bb164598a517f586e0d3 (diff) | |
| download | perl-22d4bb9ccb8701e68f9243547d7e3a3c55f70908.tar.gz | |
SYN SYN
p4raw-id: //depot/vmsperl@7375
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 |