diff options
| author | Pascal Rigaux <pixel@mandriva.com> | 2002-11-15 12:37:11 +0000 |
|---|---|---|
| committer | Pascal Rigaux <pixel@mandriva.com> | 2002-11-15 12:37:11 +0000 |
| commit | 749daba8115512bb19567dc4404da035c583c7ab (patch) | |
| tree | c276380b7b91ed8f8f0cf0e8a9ea2cf3f817132d /MDK/Common/Func.pm | |
| parent | 3e374c857eccccc6929f86daea3da51e3dd6f7f1 (diff) | |
| download | perl-MDK-Common-749daba8115512bb19567dc4404da035c583c7ab.tar perl-MDK-Common-749daba8115512bb19567dc4404da035c583c7ab.tar.gz perl-MDK-Common-749daba8115512bb19567dc4404da035c583c7ab.tar.bz2 perl-MDK-Common-749daba8115512bb19567dc4404da035c583c7ab.tar.xz perl-MDK-Common-749daba8115512bb19567dc4404da035c583c7ab.zip | |
make it perl_checker compliant
Diffstat (limited to 'MDK/Common/Func.pm')
| -rw-r--r-- | MDK/Common/Func.pm | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/MDK/Common/Func.pm b/MDK/Common/Func.pm index b655ec8..c77b588 100644 --- a/MDK/Common/Func.pm +++ b/MDK/Common/Func.pm @@ -159,14 +159,14 @@ sub may_apply { $_[0] ? $_[0]->($_[1]) : (@_ > 2 ? $_[2] : $_[1]) } sub if_($@) { my $b = shift; $b or return (); - wantarray || @_ <= 1 or die("if_ called in scalar context with more than one argument " . join(":", caller())); - wantarray ? @_ : $_[0]; + wantarray() || @_ <= 1 or die("if_ called in scalar context with more than one argument " . join(":", caller())); + wantarray() ? @_ : $_[0]; } 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 ? @_ : $_[0]; + wantarray() || @_ <= 1 or die("if_ called in scalar context with more than one argument " . join(":", caller())); + wantarray() ? @_ : $_[0]; } sub fold_left(&@) { @@ -259,7 +259,7 @@ sub add_f4before_leaving { my $f = $list->{$_[0]}{$name} or die ''; $name eq 'DESTROY' and delete $list->{$_[0]}; &$f; - } unless defined &{*N}; + } if !defined &{*N}; } |