Index: solenv/bin/guw.pl
===================================================================
RCS file: /cvs/tools/solenv/bin/guw.pl,v
retrieving revision 1.14.66.1
diff -u -r1.14.66.1 guw.pl
--- solenv/bin/guw.pl	5 Jun 2004 14:16:19 -0000	1.14.66.1
+++ solenv/bin/guw.pl	7 Jun 2004 22:06:41 -0000
@@ -107,7 +107,8 @@
   $variable =~ s/([;]|\A)(\w);/$1$2:/g; # get back the drives
 
   # Search for posix path ;entry; and replace with cygpath -w entry, accept quotes.
-  while ( $variable =~ /(?:;|\A)[\'\"]?((?:\/[\w\.\- ~]+)+)[\'\"]?(?:;|\Z)/ ) { # Normal paths
+  # iz28717 Accept ',' as path seperator.
+  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"} ) ;