diff options
| author | Tor Lillqvist <tlillqvist@novell.com> | 2010-09-14 12:03:43 +0200 |
|---|---|---|
| committer | Fridrich Štrba <fridrich.strba@bluewin.ch> | 2010-09-14 12:03:43 +0200 |
| commit | 65eee44249fb641de14b0c92f6be3ebedd468383 (patch) | |
| tree | 675d32e73d736bd9cf9cffa98d8af38bff9552b0 /solenv/bin/modules/installer/control.pm | |
| parent | 51ec7b1d6b1846771ab4e4fd6bd71beed998a00d (diff) | |
win32-cygwin-1.7.diff: Fix windows build using cygwin 1.7
i#59477
Diffstat (limited to 'solenv/bin/modules/installer/control.pm')
| -rw-r--r-- | solenv/bin/modules/installer/control.pm | 7 |
1 files changed, 6 insertions, 1 deletions
diff --git a/solenv/bin/modules/installer/control.pm b/solenv/bin/modules/installer/control.pm index bd700be38758..5066c05c315b 100644 --- a/solenv/bin/modules/installer/control.pm +++ b/solenv/bin/modules/installer/control.pm @@ -87,9 +87,14 @@ sub check_system_path if( $^O =~ /cygwin/i ) { # When using cygwin's perl the PATH variable is POSIX style and ... - $pathvariable = qx{cygpath -mp "$pathvariable"} ; + my $temparrayref = installer::converter::convert_stringlist_into_array_without_newline(\$pathvariable, $local_pathseparator); + foreach $i (0..$#$temparrayref) { + $$temparrayref[$i] = qx{cygpath -m "$$temparrayref[$i]"}; + chomp($$temparrayref[$i]); + } # has to be converted to DOS style for further use. $local_pathseparator = ';'; + $pathvariable = join($local_pathseparator, @$temparrayref); } my $patharrayref = installer::converter::convert_stringlist_into_array(\$pathvariable, $local_pathseparator); |