This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Fix Time::HiRes compile probe on VMS
authorCraig A. Berry <craigberry@mac.com>
Thu, 24 Dec 2020 14:48:47 +0000 (08:48 -0600)
committerCraig A. Berry <craigberry@mac.com>
Thu, 24 Dec 2020 18:01:59 +0000 (12:01 -0600)
The probe was checking the severity bits of the compiler exit
status and requiring the value to be 1, which is what they are
for SS$_NORMAL. But actually any true (odd) value is considered
successful. So, for example, if the compile succeeds but emits
"informational messages" that do not rise to the level of warnings
or errors, the severity bits have a value of 3, not 1. The probe
should not fail (and end up halting the build) in this case, so
allow any successful value.

Porting/Maintainers.pl
dist/Time-HiRes/Makefile.PL
t/porting/customized.dat

index 66330fe..ed24876 100755 (executable)
@@ -1206,6 +1206,9 @@ use File::Glob qw(:case);
     'Time::HiRes' => {
         'DISTRIBUTION' => 'ATOOMIC/Time-HiRes-1.9764.tar.gz',
         'FILES'        => q[dist/Time-HiRes],
+        'CUSTOMIZED'   => [
+            qw( Makefile.PL ),
+        ],
     },
 
     'Time::Local' => {
index c918cd1..0c01fc0 100644 (file)
@@ -88,7 +88,7 @@ __EOD__
             open( CMDFILE, '>', "$tmp.com" );
             print CMDFILE "\$ SET MESSAGE/NOFACILITY/NOSEVERITY/NOIDENT/NOTEXT\n";
             print CMDFILE "\$ $cccmd\n";
-            print CMDFILE "\$ IF \$SEVERITY .NE. 1 THEN EXIT 44\n"; # escalate
+            print CMDFILE "\$ IF .NOT. \$SEVERITY THEN EXIT 44\n"; # escalate
             close CMDFILE;
             system("\@ $tmp.com");
             $ok = $?==0;
index bf97579..c90372d 100644 (file)
@@ -22,6 +22,7 @@ Net::Ping dist/Net-Ping/t/500_ping_icmp.t 3eeb60181c01b85f876bd6658644548fdf2e24
 Net::Ping dist/Net-Ping/t/501_ping_icmpv6.t 54373de5858f8fb7e078e4998a4b3b8dbca91783
 Pod::Perldoc cpan/Pod-Perldoc/lib/Pod/Perldoc.pm 582be34c077c9ff44d99914724a0cc2140bcd48c
 Test::Harness cpan/Test-Harness/t/source.t aaa3939591114c0c52ecd44159218336d1f762b9
+Time::HiRes dist/Time-HiRes/Makefile.PL a8c1da5ec1672780e453304925ee0615b422c61f
 Win32API::File cpan/Win32API-File/File.pm 8fd212857f821cb26648878b96e57f13bf21b99e
 Win32API::File cpan/Win32API-File/File.xs beb870fed4490d2faa547b4a8576b8d64d1d27c5
 experimental cpan/experimental/t/basic.t cb9da8dd05b854375809872a05dd32637508d5da