This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Revert "Fix Time::HiRes compile probe on VMS"
authorCraig A. Berry <craigberry@mac.com>
Sat, 2 Jan 2021 22:48:21 +0000 (16:48 -0600)
committerCraig A. Berry <craigberry@mac.com>
Sun, 3 Jan 2021 17:09:33 +0000 (11:09 -0600)
This reverts commit 9eebd4ca7bb8610f51a27d96c12e9b1676958d55.

It turns out that probing for the existence of functions also
only generates informational messages (and thus a successful
exit status) when the function is missing, e.g.:

    ret = clock_nanosleep(CLOCK_REALTIME, 0, &ts1, &ts2);
..........^
%CC-I-IMPLICITFUNC, In this statement, the identifier "clock_nanosleep" is implicitly declared as a function.
at line number 13 in file D0:[craig.blead.dist.Time-HiRes]try.c;1

And we aren't linking in Time::HiRes's probes on VMS since making
that work both in and out of core in a general way is no small
feat.

So we go back to requiring no compiler messages in the test
compiles.

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

index ed24876..66330fe 100755 (executable)
@@ -1206,9 +1206,6 @@ 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 0c01fc0..c918cd1 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 .NOT. \$SEVERITY THEN EXIT 44\n"; # escalate
+            print CMDFILE "\$ IF \$SEVERITY .NE. 1 THEN EXIT 44\n"; # escalate
             close CMDFILE;
             system("\@ $tmp.com");
             $ok = $?==0;
index c90372d..bf97579 100644 (file)
@@ -22,7 +22,6 @@ 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