diff options
author | Tim Retout <tim@retout.co.uk> | 2012-02-19 14:04:09 +0000 |
---|---|---|
committer | Michael Meeks <michael.meeks@suse.com> | 2012-02-20 11:30:39 +0000 |
commit | 621896fb558d25d3146201f3d54fca103bcf222c (patch) | |
tree | a4605dfd670043c0a74c69ffc7bde28638856ca8 /solenv/bin | |
parent | f0be445556c547952bafe4ac42fd14a59c09d430 (diff) |
Avoid using installer::parameter in installer::ziplist
Diffstat (limited to 'solenv/bin')
-rw-r--r-- | solenv/bin/modules/installer/ziplist.pm | 9 |
1 files changed, 5 insertions, 4 deletions
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); } } |