parameter.pm (9780544f) | parameter.pm (5b11f0d3) |
---|---|
1#************************************************************** 2# 3# Licensed to the Apache Software Foundation (ASF) under one 4# or more contributor license agreements. See the NOTICE file 5# distributed with this work for additional information 6# regarding copyright ownership. The ASF licenses this file 7# to you under the Apache License, Version 2.0 (the 8# "License"); you may not use this file except in compliance --- 138 unchanged lines hidden (view full) --- 147 { 148 if (!($$pathref =~ /^\s*\w\:/)) # this is a relative windows path 149 { 150 $$pathref = cwd() . $pre2par::globals::separator . $$pathref; 151 $$pathref =~ s/\//\\/g; 152 } 153 } 154 | 1#************************************************************** 2# 3# Licensed to the Apache Software Foundation (ASF) under one 4# or more contributor license agreements. See the NOTICE file 5# distributed with this work for additional information 6# regarding copyright ownership. The ASF licenses this file 7# to you under the Apache License, Version 2.0 (the 8# "License"); you may not use this file except in compliance --- 138 unchanged lines hidden (view full) --- 147 { 148 if (!($$pathref =~ /^\s*\w\:/)) # this is a relative windows path 149 { 150 $$pathref = cwd() . $pre2par::globals::separator . $$pathref; 151 $$pathref =~ s/\//\\/g; 152 } 153 } 154 |
155 if ( $pre2par::globals::isos2 ) 156 { 157 if (!($$pathref =~ /^\s*\w\:/)) # this is a relative os2 path 158 { 159 $$pathref = cwd() . $pre2par::globals::separator . $$pathref; 160 $$pathref =~ s/\\/\//g; 161 } 162 } 163 |
|
155 $$pathref =~ s/\Q$pre2par::globals::separator\E\s*$//; # removing ending slashes 156} 157 158##################################### 159# Writing parameter to shell 160##################################### 161 162sub outputparameter --- 12 unchanged lines hidden --- | 164 $$pathref =~ s/\Q$pre2par::globals::separator\E\s*$//; # removing ending slashes 165} 166 167##################################### 168# Writing parameter to shell 169##################################### 170 171sub outputparameter --- 12 unchanged lines hidden --- |