1 files changed, 6 insertions, 4 deletions
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 {