summaryrefslogtreecommitdiffstats
path: root/perl-install/common.pm
diff options
context:
space:
mode:
Diffstat (limited to 'perl-install/common.pm')
-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 :(