IO::Socket errors under mod_perl

[patjervis]

OS = Solaris 9 (sparc)
perl = version 5.6.1 (bundled with the OS)
apache = version 1.3.29 (bundled with the OS)

I have several CGI scripts which run fine (no errors or warnings) with strict pragma under mod_cgi.

When I run them as mod_perl (Apache:erlRun) my error_log file gets the following 5 lines :-

Prototype mismatch: sub Apache::ROOT:erl::readrecsb_2epl::AF_INET vs () at /li
ve/apache/mod_perl/readrecsb.pl line 106
Prototype mismatch: sub Apache::ROOT:erl::readrecsb_2epl::AF_UNIX vs () at /li
ve/apache/mod_perl/readrecsb.pl line 106
Prototype mismatch: sub Apache::ROOT:erl::readrecsb_2epl::SOCK_DGRAM vs () at
/live/apache/mod_perl/readrecsb.pl line 106
Prototype mismatch: sub Apache::ROOT:erl::readrecsb_2epl::SOCK_RAW vs () at /l
ive/apache/mod_perl/readrecsb.pl line 106
Prototype mismatch: sub Apache::ROOT:erl::readrecsb_2epl::SOCK_STREAM vs () at
/live/apache/mod_perl/readrecsb.pl line 106

whenever it encounters the following snippet of code :-

use IO::Socket; # Line 106
$remote = IO::Socket::INET->new(
Proto => "tcp",
PeerAddr => "192.9.123.321",
PeerPort => "6544",
)
or die "Cannot connect to myhost";

The script still works, but these warnings will soon fill up the log. How can I avoid them please?

 

[PaulTEG]

are you using use warnings ?
Strikes me an error should stop the script, but warnings will continue, what's causing it, dunno

Try the Perl forum

http://www.tek-tips.com/threadminder.cfm?pid=219

--Paul

Nancy Griffith - songstress extraordinaire,
and composer of the snipers anthem "From a distance ...