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