From 1ccb1205a65a05cc7501544019bcca752b6d5b64 Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Fri, 23 Mar 2001 17:18:13 +0000
Subject: (formatError): created

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

(limited to 'perl-install')

diff --git a/perl-install/common.pm b/perl-install/common.pm
index 5e53de15b..d5405a4b4 100644
--- a/perl-install/common.pm
+++ b/perl-install/common.pm
@@ -679,6 +679,12 @@ sub next_val_in_array {
 
 sub isCdNotEjectable { scalar(grep { /ram3/ } cat_("/proc/mounts")) == 0 }
 
+sub formatError {
+    my ($err) = @_;
+    $err =~ s/ at .*?$/\./ if !$::testing;
+    $err;
+}
+
 
 #-######################################################################################
 #- Wonderful perl :(
-- 
cgit v1.2.1