diff options
| author | Thierry Vignaud <tv@mandriva.org> | 2010-07-20 10:25:37 +0000 |
|---|---|---|
| committer | Thierry Vignaud <tv@mandriva.org> | 2010-07-20 10:25:37 +0000 |
| commit | 4a47f90047af1288ed1cceb43da310eef4844a15 (patch) | |
| tree | b49a85119ab218487c75861ee83adba43fcaad75 | |
| parent | 796884e0e279777167e83cb22e0c7893f14f39cb (diff) | |
| download | perl-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
| -rw-r--r-- | lib/MDK/Common/Func.pm | 2 |
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]; } |