From d971e4ff060c9bcf3801cf9eff30531b4a6c1498 Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Wed, 19 Feb 2003 23:15:32 +0000
Subject: use formatError($err) instead of $@

---
 perl-install/diskdrake/interactive.pm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'perl-install/diskdrake')

diff --git a/perl-install/diskdrake/interactive.pm b/perl-install/diskdrake/interactive.pm
index 5a6fe0c3d..c7eb59b60 100644
--- a/perl-install/diskdrake/interactive.pm
+++ b/perl-install/diskdrake/interactive.pm
@@ -491,7 +491,7 @@ sub Create {
 First remove a primary partition and create an extended partition."));
 		    return 0;
 		} else {
-		    $in->ask_warn(N("Error"), $@);
+		    $in->ask_warn(N("Error"), formatError($err));
 		    return 1;
 		}
 	    }
-- 
cgit v1.2.1