unshift @{$catch}, undef, $code;

Weird. That's not what's in my Error.pm. In my copy, it says:

    unshift @{$catch}, undef, $sub;
[download]

Check if there's a newer version than the one you use. Installed on my box is 0.15.

Yes, I reinvent wheels.