diff options
| author | Pascal Rigaux <pixel@mandriva.com> | 2001-04-05 23:46:23 +0000 |
|---|---|---|
| committer | Pascal Rigaux <pixel@mandriva.com> | 2001-04-05 23:46:23 +0000 |
| commit | 4b790745bdcac576ea7d13292b1fb6ef66dddfa1 (patch) | |
| tree | 557b0dd0838f696a3dff9448d69257aeac7a5647 /perl-install/common.pm | |
| parent | c92dee798c9145de1164ef3e534b80aadf84db27 (diff) | |
| download | drakx-4b790745bdcac576ea7d13292b1fb6ef66dddfa1.tar drakx-4b790745bdcac576ea7d13292b1fb6ef66dddfa1.tar.gz drakx-4b790745bdcac576ea7d13292b1fb6ef66dddfa1.tar.bz2 drakx-4b790745bdcac576ea7d13292b1fb6ef66dddfa1.tar.xz drakx-4b790745bdcac576ea7d13292b1fb6ef66dddfa1.zip | |
(if_): better logging of the error
Diffstat (limited to 'perl-install/common.pm')
| -rw-r--r-- | perl-install/common.pm | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/perl-install/common.pm b/perl-install/common.pm index 4213c4fdc..ab5c9419d 100644 --- a/perl-install/common.pm +++ b/perl-install/common.pm @@ -151,13 +151,13 @@ 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"; + 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"; + wantarray || @_ <= 1 or die("if_ called in scalar context with more than one argument " . join(":", caller())); wantarray ? @_ : $_[0]; } sub arch() { |