From 2d4133ff240757edb14cf10b83bbbabb274772f3 Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Fri, 24 Sep 1999 08:53:00 +0000
Subject: no_comment

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

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

diff --git a/perl-install/common.pm b/perl-install/common.pm
index e9e803c65..5094e0e48 100644
--- a/perl-install/common.pm
+++ b/perl-install/common.pm
@@ -183,12 +183,14 @@ sub catch_cdie(&&) {
     &$f();
 }
 
-sub cdie {
-    $@ = join '', @_;
+sub cdie($;&) {
+    print "JJJJ\n";
+    my ($err, $f) = @_;
     foreach (@common::cdie_catches) {
-	&{$_}(@_) and return;
+	$@ = $err;
+	&{$_}(\$err) and return;
     }
-    die join '', @_;
+    die $err;
 }
 
 sub all {
-- 
cgit v1.2.1