From: Perl 5 Porters <perl5-porters@africa.nicoh.com>
Date: Sat, 24 Aug 1996 23:52:03 +0000 (+0000)
Subject: Add explicit '&' to avoid warnings under strict refs.
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=0b7ed9495fa7de460d26ce01fe8b909352839cd4;p=p5sagit%2Fp5-mst-13.2.git

Add explicit '&' to avoid warnings under strict refs.
---

diff --git a/lib/perl5db.pl b/lib/perl5db.pl
index 35ce69a..59ff1c6 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;