summaryrefslogtreecommitdiffstats
path: root/urpm
diff options
context:
space:
mode:
Diffstat (limited to 'urpm')
-rw-r--r--urpm/util.pm8
1 files changed, 7 insertions, 1 deletions
diff --git a/urpm/util.pm b/urpm/util.pm
index 8abb816e..6e8e483f 100644
--- a/urpm/util.pm
+++ b/urpm/util.pm
@@ -6,7 +6,7 @@ our @ISA = 'Exporter';
our @EXPORT = qw(quotespace unquotespace
remove_internal_name
reduce_pathname offset_pathname
- md5sum
+ md5sum untaint
);
#- quoting/unquoting a string that may be containing space chars.
@@ -72,6 +72,12 @@ sub offset_pathname {
$result . join('/', reverse @corrections);
}
+sub untaint {
+ my @r;
+ foreach (@_) { /(.*)/; push @r, $1 }
+ @r == 1 ? $r[0] : @r;
+}
+
sub md5sum {
#- Use an external command to avoid depending on perl
my ($file) = @_;