diff options
Diffstat (limited to 'urpm/util.pm')
| -rw-r--r-- | urpm/util.pm | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/urpm/util.pm b/urpm/util.pm index 47a89f08..321902b4 100644 --- a/urpm/util.pm +++ b/urpm/util.pm @@ -5,7 +5,7 @@ package urpm::util; use strict; use Exporter; our @ISA = 'Exporter'; -our @EXPORT = qw(quotespace unquotespace +our @EXPORT = qw(min quotespace unquotespace remove_internal_name reduce_pathname offset_pathname untaint @@ -17,6 +17,8 @@ our @EXPORT = qw(quotespace unquotespace (our $VERSION) = q($Revision$) =~ /(\d+)/; +sub min { my $n = shift; $_ < $n and $n = $_ foreach @_; $n } + #- quoting/unquoting a string that may be containing space chars. sub quotespace { my $x = $_[0] || ''; $x =~ s/(\s)/\\$1/g; $x } sub unquotespace { my $x = $_[0] || ''; $x =~ s/\\(\s)/$1/g; $x } |