diff options
| author | Tim Retout <tim@retout.co.uk> | 2012-02-19 12:45:56 +0000 |
|---|---|---|
| committer | Michael Meeks <michael.meeks@suse.com> | 2012-02-20 11:30:39 +0000 |
| commit | f0be445556c547952bafe4ac42fd14a59c09d430 (patch) | |
| tree | 0926c324adb1cc91c11e9c9152e1d915af6191cb /solenv/bin/modules/pre2par | |
| parent | a2ba4dcbd232c071bd69011a735bf9cd3001a15d (diff) | |
Remove unused pre2par::parameter::make_path_absolute
Diffstat (limited to 'solenv/bin/modules/pre2par')
| -rw-r--r-- | solenv/bin/modules/pre2par/parameter.pm | 29 |
1 files changed, 0 insertions, 29 deletions
diff --git a/solenv/bin/modules/pre2par/parameter.pm b/solenv/bin/modules/pre2par/parameter.pm index a39dbd0623b0..efda79df42ba 100644 --- a/solenv/bin/modules/pre2par/parameter.pm +++ b/solenv/bin/modules/pre2par/parameter.pm @@ -130,35 +130,6 @@ sub control_parameter pre2par::files::check_file($pre2par::globals::prefilename); } -########################################################## -# The path parameters can be relative or absolute. -# This function creates absolute paths. -########################################################## - -sub make_path_absolute -{ - my ($pathref) = @_; - - if ( $pre2par::globals::isunix ) - { - if (!($$pathref =~ /^\s*\//)) # this is a relative unix path - { - $$pathref = cwd() . $pre2par::globals::separator . $$pathref; - } - } - - if ( $pre2par::globals::iswin ) - { - if (!($$pathref =~ /^\s*\w\:/)) # this is a relative windows path - { - $$pathref = cwd() . $pre2par::globals::separator . $$pathref; - $$pathref =~ s/\//\\/g; - } - } - - $$pathref =~ s/\Q$pre2par::globals::separator\E\s*$//; # removing ending slashes -} - ##################################### # Writing parameter to shell ##################################### |