From 4a47f90047af1288ed1cceb43da310eef4844a15 Mon Sep 17 00:00:00 2001 From: Thierry Vignaud Date: Tue, 20 Jul 2010 10:25:37 +0000 Subject: (if__) more precise exception message --- lib/MDK/Common/Func.pm | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/lib/MDK/Common/Func.pm b/lib/MDK/Common/Func.pm index cccaadc..b78ebc4 100644 --- a/lib/MDK/Common/Func.pm +++ b/lib/MDK/Common/Func.pm @@ -189,7 +189,7 @@ sub if_($@) { sub if__($@) { my $b = shift; defined $b or return (); - wantarray() || @_ <= 1 or die("if_ called in scalar context with more than one argument " . join(":", caller())); + wantarray() || @_ <= 1 or die("if__ called in scalar context with more than one argument " . join(":", caller())); wantarray() ? @_ : $_[0]; } -- cgit v1.2.1