From 621896fb558d25d3146201f3d54fca103bcf222c Mon Sep 17 00:00:00 2001
From: Tim Retout <tim@retout.co.uk>
Date: Sun, 19 Feb 2012 14:04:09 +0000
Subject: Avoid using installer::parameter in installer::ziplist

---
 solenv/bin/modules/installer/ziplist.pm | 9 +++++----
 1 file changed, 5 insertions(+), 4 deletions(-)

(limited to 'solenv/bin')

diff --git a/solenv/bin/modules/installer/ziplist.pm b/solenv/bin/modules/installer/ziplist.pm
index 5ee0bb6451d3..6435445dc883 100644
--- a/solenv/bin/modules/installer/ziplist.pm
+++ b/solenv/bin/modules/installer/ziplist.pm
@@ -27,10 +27,11 @@
 
 package installer::ziplist;
 
+use File::Spec::Functions qw(rel2abs);
+
 use installer::exiter;
 use installer::globals;
 use installer::logger;
-use installer::parameter;
 use installer::remover;
 use installer::systemactions;
 
@@ -702,10 +703,10 @@ sub resolve_relative_pathes
 {
     my ( $patharrayref ) = @_;
 
-    for ( my $i = 0; $i <= $#{$patharrayref}; $i++ )
+    for my $path ( @{$patharrayref} )
     {
-        installer::parameter::make_path_absolute(\${$patharrayref}[$i]);
-        simplify_path(\${$patharrayref}[$i]);
+        $path = rel2abs($path);
+        simplify_path(\$path);
     }
 }
 
-- 
cgit