summaryrefslogtreecommitdiffstats
path: root/perl-install/common.pm
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>1999-09-01 10:21:01 +0000
committerPascal Rigaux <pixel@mandriva.com>1999-09-01 10:21:01 +0000
commit2fe429a1283bb382c14b3657ab9f752a8b240233 (patch)
treee8e00ae4bf9ea2e1f4cd00b90df0b63c00af4fde /perl-install/common.pm
parent63746e561f4804236803986cc19de6664d95dc1c (diff)
downloaddrakx-backup-do-not-use-2fe429a1283bb382c14b3657ab9f752a8b240233.tar
drakx-backup-do-not-use-2fe429a1283bb382c14b3657ab9f752a8b240233.tar.gz
drakx-backup-do-not-use-2fe429a1283bb382c14b3657ab9f752a8b240233.tar.bz2
drakx-backup-do-not-use-2fe429a1283bb382c14b3657ab9f752a8b240233.tar.xz
drakx-backup-do-not-use-2fe429a1283bb382c14b3657ab9f752a8b240233.zip
no_comment
Diffstat (limited to 'perl-install/common.pm')
-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 4220b06d7..fbaf4cd80 100644
--- a/perl-install/common.pm
+++ b/perl-install/common.pm
@@ -131,9 +131,9 @@ sub before_leaving(&) {
sub catch_cdie(&&) {
my ($f, $catch) = @_;
+ local @common::cdie_catches;
unshift @common::cdie_catches, $catch;
&$f();
- shift @common::cdie_catches;
}
sub cdie {
@@ -141,7 +141,7 @@ sub cdie {
foreach (@common::cdie_catches) {
&{$_}(@_) and return;
}
- die @_;
+ die join '', @_;
}
sub all {