|
Lines 103-110
Link Here
|
| 103 |
$variable =~ s/(\$\w+)/$1/eeg ; # expand the variables twice! |
103 |
$variable =~ s/(\$\w+)/$1/eeg ; # expand the variables twice! |
| 104 |
$variable =~ s/:/;/g; |
104 |
$variable =~ s/:/;/g; |
| 105 |
$variable =~ s/([;]|\A)(\w);/$1$2:/g; # get back the drives |
105 |
$variable =~ s/([;]|\A)(\w);/$1$2:/g; # get back the drives |
| 106 |
# Search for posix path ;entry; and replace with cygpath -w entry |
106 |
# Search for posix path ;entry; and replace with cygpath -w entry, accept quotes. |
| 107 |
while ( $variable =~ /(?:;|\A)((?:\/[\w\.\- ~]+)+(?:;|\Z))/ ) { # Normal paths |
107 |
while ( $variable =~ /(?:;|\A)[\'\"]?((?:\/[\w\.\- ~]+)+)[\'\"]?(?:;|\Z)/ ) { # Normal paths |
| 108 |
if ( defined $debug ) { print(STDERR "WinFormat:\nnormal path:\n$variable\n");}; |
108 |
if ( defined $debug ) { print(STDERR "WinFormat:\nnormal path:\n$variable\n");}; |
| 109 |
$d1 = $1 ; |
109 |
$d1 = $1 ; |
| 110 |
chomp( $d2 = qx{cygpath -w "$d1"} ) ; |
110 |
chomp( $d2 = qx{cygpath -w "$d1"} ) ; |