From ebb23e92ff953b0debf9bbb8caadc3042be3f6e2 Mon Sep 17 00:00:00 2001
From: dondelelcaro <dondelelcaro@c11ca15a-4712-0410-83d8-924469b57eb5>
Date: Tue, 29 Apr 2008 05:52:26 +0000
Subject: [PATCH] it should be caller(1), not caller(0)

git-svn-id: https://svn.code.sf.net/p/infobot/code/branches/don/dpkg@1816 c11ca15a-4712-0410-83d8-924469b57eb5
---
 src/logger.pl | 10 +++++-----
 1 file changed, 5 insertions(+), 5 deletions(-)

diff --git a/src/logger.pl b/src/logger.pl
index e23e69d..f100fd6 100644
--- a/src/logger.pl
+++ b/src/logger.pl
@@ -170,13 +170,13 @@ sub compress {
 
 sub DEBUG {
     return unless ( &IsParam('DEBUG') );
-    my (undef,undef,$line,$subroutine,undef) = caller(0);
+    my (undef,undef,$line,$subroutine,undef) = caller(1);
 
     &status("${b_green}!DEBUG!$ob ".$subroutine.'['.$line."] $_[0]");
 }
 
 sub ERROR {
-    my (undef,undef,$line,$subroutine,undef) = caller(0);
+    my (undef,undef,$line,$subroutine,undef) = caller(1);
 
     &status("${b_red}!ERROR!$ob ".$subroutine.'['.$line."] $_[0]");
 }
@@ -186,19 +186,19 @@ sub WARN {
 
     return if ( $_[0] =~ /^PERL: Subroutine \S+ redefined at/ );
 
-    my ($package,$filename,$line,$subroutine,undef) = caller(0);
+    my ($package,$filename,$line,$subroutine,undef) = caller(1);
 
     &status("${b_yellow}!WARN!$ob ".$subroutine.'['.$line."] $_[0]");
 }
 
 sub FIXME {
-    my ($package,$filename,$line,$subroutine,undef) = caller(0);
+    my ($package,$filename,$line,$subroutine,undef) = caller(1);
 
     &status("${b_cyan}!FIXME!$ob ".$subroutine.'['.$line."] $_[0]");
 }
 
 sub TODO {
-    my ($package,$filename,$line,$subroutine,undef) = caller(0);
+    my ($package,$filename,$line,$subroutine,undef) = caller(1);
 
     &status("${b_cyan}!TODO!$ob ".$subroutine.'['.$line."] $_[0]");
 }
-- 
2.39.5