|
Lines 107-113
Link Here
|
| 107 |
$variable =~ s/([;]|\A)(\w);/$1$2:/g; # get back the drives |
107 |
$variable =~ s/([;]|\A)(\w);/$1$2:/g; # get back the drives |
| 108 |
|
108 |
|
| 109 |
# Search for posix path ;entry; and replace with cygpath -w entry, accept quotes. |
109 |
# Search for posix path ;entry; and replace with cygpath -w entry, accept quotes. |
| 110 |
while ( $variable =~ /(?:;|\A)[\'\"]?((?:\/[\w\.\- ~]+)+)[\'\"]?(?:;|\Z)/ ) { # Normal paths |
110 |
# iz28717 Accept ',' as path seperator. |
|
|
111 |
while ( $variable =~ /(?:[;,]|\A)[\'\"]?((?:\/[\w\.\- ~]+)+)[\'\"]?(?:[;,]|\Z)/ ) { # Normal paths |
| 111 |
if ( defined $debug ) { print(STDERR "WinFormat:\nnormal path:\n$variable\n");}; |
112 |
if ( defined $debug ) { print(STDERR "WinFormat:\nnormal path:\n$variable\n");}; |
| 112 |
$d1 = $1 ; |
113 |
$d1 = $1 ; |
| 113 |
chomp( $d2 = qx{cygpath -w "$d1"} ) ; |
114 |
chomp( $d2 = qx{cygpath -w "$d1"} ) ; |