summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>2001-04-05 23:46:23 +0000
committerPascal Rigaux <pixel@mandriva.com>2001-04-05 23:46:23 +0000
commit4b790745bdcac576ea7d13292b1fb6ef66dddfa1 (patch)
tree557b0dd0838f696a3dff9448d69257aeac7a5647
parentc92dee798c9145de1164ef3e534b80aadf84db27 (diff)
downloaddrakx-backup-do-not-use-4b790745bdcac576ea7d13292b1fb6ef66dddfa1.tar
drakx-backup-do-not-use-4b790745bdcac576ea7d13292b1fb6ef66dddfa1.tar.gz
drakx-backup-do-not-use-4b790745bdcac576ea7d13292b1fb6ef66dddfa1.tar.bz2
drakx-backup-do-not-use-4b790745bdcac576ea7d13292b1fb6ef66dddfa1.tar.xz
drakx-backup-do-not-use-4b790745bdcac576ea7d13292b1fb6ef66dddfa1.zip
(if_): better logging of the error
-rw-r--r--perl-install/common.pm4
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() {