I'm trying to build a module that will handle all our perl in a nice way, along the way I have trapped $SIG{__DIE__}. After doing my thing, I want to hand it back, but I get an "Use of uninitialized value in scalar assignment at Hps.pm" error.

The Package:

package Hps;

my $origHandler = $SIG{__DIE__};
$SIG{__DIE__} = 'Hps::grimReaper'
    unless ($^D);

sub grimReaper
{
    # We can drop out early if $^S is set because that means we're in 
+an eval
    die (@_)
        if (not defined $^S or
          ($] >= 5.005 and defined $^S and $^S));

    # .. do some stuff ..

    # It is this line that causes an error.
    $SIG{__DIE__} = $origHandler;

    die "@_";
}
[download]

The script:

#!/usr/bin/perl -w
use strict;
use Hps;
die ("Oh no!");
[download]

Is this a feature of the -w switch, or can I do this in a nicer way?