How to prevent warning messages thrown by external modules?

Install a related __WARN__ signal handler:

$SIG{'__WARN__'} = \&alarm_handler; # install signal handler

sub alarm_handler () {
	print STDERR "alarm catched!\n";
	return;
}

Tip: You could localize suppress warnings to a specific sub routine:

local $SIG{'__WARN__'} = \&alarm_handler; # install signal handler

---

See also:
www.cotse.com/perl/warn.html↑

Advanced search tips

---

[ home ] - [ search ] - [ feedback ]

copyright by reto - created with mytexi