1 files changed, 11 insertions, 0 deletions
diff --git a/urpm/util.pm b/urpm/util.pm
index 09b20467..4c51d2ff 100644
--- a/urpm/util.pm
+++ b/urpm/util.pm
@@ -16,6 +16,7 @@ our @EXPORT = qw(min max quotespace unquotespace
     difference2 intersection member 
     file_size cat_ cat_utf8 wc_l
     output_safe append_to_file dirname basename
+    file2absolute_file
 );
 
 (our $VERSION) = q($Revision$) =~ /(\d+)/;
@@ -31,6 +32,16 @@ sub remove_internal_name { my $x = $_[0] || ''; $x =~ s/\(\S+\)$/$1/g; $x }
 sub dirname { local $_ = shift; s|[^/]*/*\s*$||; s|(.)/*$|$1|; $_ || '.' }
 sub basename { local $_ = shift; s|/*\s*$||; s|.*/||; $_ }
 
+sub file2absolute_file {
+    my ($f) = @_;
+
+    if ($f !~ m!^/!) {
+	require File::Spec;
+	$f = File::Spec->rel2abs($f);
+    }
+    $f;
+}
+
 #- reduce pathname by removing <something>/.. each time it appears (or . too).
 sub reduce_pathname {
     my ($url) = @_;