use Carp;
-$VERSION = 1.02;
+$VERSION = 1.04;
$Verbose ||= 0;
sub import {
# Now go for broke.
for ($i = 1; ($p,$f,$l,$s,$h,$w,$e,$r) = caller($i); $i++) {
@a = ();
- for $arg (@args) {
- $_ = "$arg";
+ for (@args) {
s/([\'\\])/\\$1/g;
s/([^\0]*)/'$1'/
unless /^(?: -?[\d.]+ | \*[\w:]* )$/x;
I<your-handler> will be used as the handler for subsequently installed
signals. I<your-handler> can be any value which is valid as an
-assignment to an element of C<%SIG>.
+assignment to an element of C<%SIG>. See L<perlvar> for examples of
+handler functions.
=back