diff options
| author | Rafael Garcia-Suarez <rgarciasuarez@mandriva.org> | 2004-12-07 11:00:59 +0000 |
|---|---|---|
| committer | Rafael Garcia-Suarez <rgarciasuarez@mandriva.org> | 2004-12-07 11:00:59 +0000 |
| commit | 218724a54c08f3dd28beae384842929022b92192 (patch) | |
| tree | 73ce22373915fd795f7586ca8c677b193595871d /urpm/util.pm | |
| parent | 39f44504adbb492486856db74cb269f7ba85f66f (diff) | |
| download | urpmi-218724a54c08f3dd28beae384842929022b92192.tar urpmi-218724a54c08f3dd28beae384842929022b92192.tar.gz urpmi-218724a54c08f3dd28beae384842929022b92192.tar.bz2 urpmi-218724a54c08f3dd28beae384842929022b92192.tar.xz urpmi-218724a54c08f3dd28beae384842929022b92192.zip | |
Move untaint() into urpm::util.
Fix a comment in urpmi.
Diffstat (limited to 'urpm/util.pm')
| -rw-r--r-- | urpm/util.pm | 8 |
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) = @_; |