Index: solenv/bin/guw.pl
===================================================================
RCS file: /cvs/tools/solenv/bin/guw.pl,v
retrieving revision 1.7.2.1
diff -u -r1.7.2.1 guw.pl
--- solenv/bin/guw.pl	31 Jan 2003 15:42:30 -0000	1.7.2.1
+++ solenv/bin/guw.pl	3 Mar 2003 16:24:35 -0000
@@ -103,8 +103,8 @@
   $variable =~ s/(\$\w+)/$1/eeg ; # expand the variables twice!
   $variable =~ s/:/;/g;
   $variable =~ s/([;]|\A)(\w);/$1$2:/g; # get back the drives
-  # Search for posix path ;entry; and replace with cygpath -w entry
-  while ( $variable =~ /(?:;|\A)((?:\/[\w\.\- ~]+)+(?:;|\Z))/ ) { # Normal paths
+  # Search for posix path ;entry; and replace with cygpath -w entry, accept quotes.
+  while ( $variable =~ /(?:;|\A)[\'\"]?((?:\/[\w\.\- ~]+)+)[\'\"]?(?:;|\Z)/ ) { # Normal paths
     if ( defined $debug ) { print(STDERR "WinFormat:\nnormal path:\n$variable\n");};
 	$d1 = $1 ;
 	chomp( $d2 = qx{cygpath -w "$d1"} ) ;