1 files changed, 3 insertions, 3 deletions
diff --git a/lib/warnings.pm b/lib/warnings.pm
index defc20890b..10a7cbfe4e 100644
--- a/lib/warnings.pm
+++ b/lib/warnings.pm
@@ -458,11 +458,11 @@ sub __chk
 	    unless defined $offset ;
     }
 
-    my $this_pkg = (caller(1))[0] ;
-    my $i = 2 ;
-    my $pkg ;
+    my $i;
 
     if ($isobj) {
+        my $pkg;
+        $i = 2;
         while (do { { package DB; $pkg = (caller($i++))[0] } } ) {
             last unless @DB::args && $DB::args[0] =~ /^$category=/ ;
         }