From 0977b27affca5e32b01cfab810f8ca5919691c0c Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Mon, 7 Jul 2008 13:40:23 +0000
Subject: create file2absolute_file() and use it

---
 urpm/util.pm | 11 +++++++++++
 1 file changed, 11 insertions(+)

(limited to 'urpm/util.pm')

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) = @_;
-- 
cgit v1.2.1