-# add sig{__DIE__} handling
-if (!defined $DB::VERSION) {
- $SIG{__WARN__} = $SIG{__DIE__} = sub {
- my $t = time;
- for (@_) {
- $fp->writeunix($t, "$t^$_");
-# print STDERR $_;
- }
- };
+sub _store
+{
+ my $t = time;
+ $fp->writeunix($t, "$t^$@") if $@;
+ $fp->writeunix($t, "$t^$!") if $!;
+ for (@_) {
+ $fp->writeunix($t, "$t^$_");
+ print STDERR $_;
+ }
+}
+
+sub dbginit
+{
+ # add sig{__DIE__} handling
+ if (!defined $DB::VERSION) {
+ $SIG{__WARN__} = $SIG{__DIE__} = \&_store;
+ }