diff options
| author | Perl 5 Porters <perl5-porters@africa.nicoh.com> | 1996-08-24 23:52:03 +0000 |
|---|---|---|
| committer | Andy Dougherty <doughera@lafcol.lafayette.edu> | 1996-08-24 23:52:03 +0000 |
| commit | 0b7ed9495fa7de460d26ce01fe8b909352839cd4 (patch) | |
| tree | f7ee917d7f0cc6ea2776e0f125a4a2b6a031c07c /lib/perl5db.pl | |
| parent | dfe6a0937831d7497a1e86a12eac1a3985ffe5ab (diff) | |
| download | perl-0b7ed9495fa7de460d26ce01fe8b909352839cd4.tar.gz | |
Add explicit '&' to avoid warnings under strict refs.
Diffstat (limited to 'lib/perl5db.pl')
| -rw-r--r-- | lib/perl5db.pl | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/lib/perl5db.pl b/lib/perl5db.pl index 35ce69a8f9..59ff1c6db7 100644 --- a/lib/perl5db.pl +++ b/lib/perl5db.pl @@ -1431,7 +1431,7 @@ sub warnLevel { $prevwarn = $SIG{__WARN__} unless $warnLevel; $warnLevel = shift; if ($warnLevel) { - $SIG{__WARN__} = 'DB::dbwarn'; + $SIG{__WARN__} = \&DB::dbwarn; } else { $SIG{__WARN__} = $prevwarn; } @@ -1444,8 +1444,8 @@ sub dieLevel { $prevdie = $SIG{__DIE__} unless $dieLevel; $dieLevel = shift; if ($dieLevel) { - $SIG{__DIE__} = 'DB::dbdie'; # if $dieLevel < 2; - #$SIG{__DIE__} = 'DB::diehard' if $dieLevel >= 2; + $SIG{__DIE__} = \&DB::dbdie; # if $dieLevel < 2; + #$SIG{__DIE__} = \&DB::diehard if $dieLevel >= 2; print $OUT "Stack dump during die enabled", ( $dieLevel == 1 ? " outside of evals" : ""), ".\n"; print $OUT "Dump printed too.\n" if $dieLevel > 2; |