From 2fe429a1283bb382c14b3657ab9f752a8b240233 Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Wed, 1 Sep 1999 10:21:01 +0000
Subject: no_comment

---
 perl-install/common.pm | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

(limited to 'perl-install/common.pm')

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 {
-- 
cgit v1.2.1