summaryrefslogtreecommitdiffstats
path: root/lib/MDK/Common
diff options
context:
space:
mode:
authorThierry Vignaud <tv@mandriva.org>2010-07-20 10:25:37 +0000
committerThierry Vignaud <tv@mandriva.org>2010-07-20 10:25:37 +0000
commit4a47f90047af1288ed1cceb43da310eef4844a15 (patch)
treeb49a85119ab218487c75861ee83adba43fcaad75 /lib/MDK/Common
parent796884e0e279777167e83cb22e0c7893f14f39cb (diff)
downloadperl-MDK-Common-4a47f90047af1288ed1cceb43da310eef4844a15.tar
perl-MDK-Common-4a47f90047af1288ed1cceb43da310eef4844a15.tar.gz
perl-MDK-Common-4a47f90047af1288ed1cceb43da310eef4844a15.tar.bz2
perl-MDK-Common-4a47f90047af1288ed1cceb43da310eef4844a15.tar.xz
perl-MDK-Common-4a47f90047af1288ed1cceb43da310eef4844a15.zip
(if__) more precise exception message
Diffstat (limited to 'lib/MDK/Common')
-rw-r--r--lib/MDK/Common/Func.pm2
1 files changed, 1 insertions, 1 deletions
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];
}