in reply to Re: unimport warnings in another package
in thread unimport warnings in another package

heh... that's no fun, though

---------
perl -le '$.=[qw(104 97 124 124 116 97)];*p=sub{[@{$_[0]},(45)x 2]};*d=sub{[(45)x 2,@{$_[0]}]};print map{chr}@{p(d($.))}'