summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>2001-03-23 17:18:13 +0000
committerPascal Rigaux <pixel@mandriva.com>2001-03-23 17:18:13 +0000
commit1ccb1205a65a05cc7501544019bcca752b6d5b64 (patch)
treeb44fa2d8e5a8821e3edf9e0851a02b8adda1e55a
parent204cf0e67e5b1ef3c716daa146eb625b65281687 (diff)
downloaddrakx-backup-do-not-use-1ccb1205a65a05cc7501544019bcca752b6d5b64.tar
drakx-backup-do-not-use-1ccb1205a65a05cc7501544019bcca752b6d5b64.tar.gz
drakx-backup-do-not-use-1ccb1205a65a05cc7501544019bcca752b6d5b64.tar.bz2
drakx-backup-do-not-use-1ccb1205a65a05cc7501544019bcca752b6d5b64.tar.xz
drakx-backup-do-not-use-1ccb1205a65a05cc7501544019bcca752b6d5b64.zip
(formatError): created
-rw-r--r--perl-install/common.pm6
1 files changed, 6 insertions, 0 deletions
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 :(