From 318c3b57a4856775a87049a41b8396bb0d4e5ad9 Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Tue, 9 Jul 2002 12:51:26 +0000
Subject: workaround perl 5.8.0-RC2 bug

---
 MDK/Common/Func.pm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'MDK')

diff --git a/MDK/Common/Func.pm b/MDK/Common/Func.pm
index bc34fce..3e8285d 100644
--- a/MDK/Common/Func.pm
+++ b/MDK/Common/Func.pm
@@ -258,7 +258,7 @@ sub add_f4before_leaving {
     *N = sub {
 	my $f = $list->{$_[0]}{$name} or die '';
 	$name eq 'DESTROY' and delete $list->{$_[0]};
-	goto $f;
+	&$f;
     } unless defined &{*N};
 
 }
-- 
cgit v1.2.1