Craig Berry wrote in reply to me:
!Peter, can you double check your application of the patch. I've
!looked at this pretty carefully and I just don't see any way you
!could hit an fcntl call after the patch. You might well get an ioctl
!error, but until we at least see that I'm not sure we've really
!tested the patch.
I have double checked patch application and the test failure
message I see does not mention fcntl. It does mention ioctl though.
Using RC2 and your modification to lib/Net/Ping.pm I now see these
test results:
$ perl lib/Net/Ping/t/190_alarm.t
1..6
# Running under perl version 5.008001 for VMS
# Current time local: Thu Jul 31 12:14:12 2003
# Current time GMT: Thu Jul 31 16:14:12 2003
# Using Test.pm version 1.24
ok 1
ok 2
ok 3
ok 4
ok 5
not ok 6
# Failed test 6 in lib/net/ping/t/190_alarm.t at line 52
# lib/net/ping/t/190_alarm.t line 52 is: ok $@ =~ /alarm works/ or die $@;
ioctl is not implemented at /perl_root/lib/Net/Ping.pm line 324.
%SYSTEM-F-ABORT, abort
$ perl lib/Net/Ping/t/450_service.t
1..26
# Running under perl version 5.008001 for VMS
# Current time local: Thu Jul 31 12:14:17 2003
# Current time GMT: Thu Jul 31 16:14:17 2003
# Using Test.pm version 1.24
ok 1
ok 2
ok 3
ok 4
ok 5
ok 6
ok 7
ioctl is not implemented at /perl_root/lib/Net/Ping.pm line 324.
%SYSTEM-F-ABORT, abort
I apologize if I sent some other result to the list.
!The problem is occurring in a function that switches non-blocking
!mode on and off for a socket (so it doesn't really have anything to
!do with file locking per se). According to various bits I've
!gathered here and there, VMS 7.0 and later should contain an ioctl()
!in the CRTL that detects the appropriate support in the network stack
!and uses it if present. There are also indications, though, that
!this may not have worked quite right until a CRTL ECO that appeared
!in the 7.1 timeframe. I have no idea whether Multinet has support
!that would be recognized by the CRTL, and if so, what minimum version
!would apply.
I am running these:
$ cc/ver
Compaq C S6.5-002 on OpenVMS Alpha V7.3-1
$ multi sho /ver
Process Software MultiNet V4.4 Rev A-X,
If that is any help. I see that the discussion
of this topic had other messages in it and I'll try
to catch up. I am also carrying out my very first
test build of RC3 with your Net::Ping.pm patch applied
and will report later.
Peter Prymmer
