The optimal case would be to hack the module source and submit a patch. I'm not familiar with the function, but perhaps it should return "false" or some other value to suggest that the function received bad information. If that is impractical or the function must perform some other important tasks, then I suggest setting a flag and returning that when the time comes. Since you specifically mention that you
don't want to change the source, simply setup to catch the die like this
$SIG{__DIE__}=sub{warn 'Illegal ping received!';}
or something similar before the actual function call. See
perlvar for more details on catching signals.
AgentM Systems nor Nasca Enterprises nor
Bone::Easy nor Macperl is responsible for the
comments made by
AgentM. Remember, you can build any logical system with NOR.