in reply to Net::Oscar crashes Perl

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.

Replies are listed 'Best First'.
Re^2: Net::Oscar crashes Perl
by karstenda (Acolyte) on Jan 16, 2009 at 22:45 UTC

    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.

      That code is in the module you mentioned.

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

        Gust guessing: perldoc -m Net::OSCAR | egrep -n 'warnings?'