Net::Oscar crashes Perl

[karstenda]

Greetings monks!

I've run into a problem while using the Net::OSCAR module.
Everytime I use this module, the perl interpreter crashes and outputs the following data:

C:\Users\admin\Desktop\Proglab>oscar.pl
Prototype mismatch: sub Net::OSCAR::Connection::F_GETFL () vs none at 
+(eval 5) l
ine 1.
Prototype mismatch: sub Net::OSCAR::Connection::F_SETFL () vs none at 
+(eval 6) l
ine 1.
Prototype mismatch: sub Net::OSCAR::Connection::O_NONBLOCK () vs none 
+at (eval 7
) line 1.

I've removed and reinstalled this module using the perlpackagemanager and the cpan shell with no effect ...

I googled a bit and stumbled on the following site: https://forum.antichat.ru/printthread.php?t=84286&pp=40" It looks like these man had the same problem, unfortunately it's all written in russian :-(

Any ideas on how to solve this?

[ikegami]

That question came up before. You're getting the warning because you turned on warnings on someone else's code (by using -w instead of use warnings;). The warning is harmless. It can be fixed by changing

if($^O eq "MSWin32") {
    eval '*F_GETFL = sub {0};';
    eval '*F_SETFL = sub {0};';
    eval '*O_NONBLOCK = sub {0}; ';
}

to

if($^O eq "MSWin32") {
    eval '*F_GETFL = sub () {0};';
    eval '*F_SETFL = sub () {0};';
    eval '*O_NONBLOCK = sub () {0}; ';
}

I can't comment on any crashing.

[karstenda]

Forgive me I'm a bit new to perl, where should I replace this code?

Replacing -w to use warnings; had no effect so far.

[ikegami]

That code is in the module you mentioned.

Interesting. The warning appears whether warnings are enabled or not.

[mikelieman]

What modules does Net::OSCAR depend on?

[karstenda]

Net::OSCAR:
This modules requires Digest::MD5 and Scalar::Util. Test::More is needed to run the test suite, and XML::Parser is needed to generate the XML parse tree which is shipped with released versions.

source: http://search.cpan.org/~matthewg/Net-OSCAR-1.925/lib/Net/OSCAR.pm