diff options
author | Hans-Joachim Lankenau <hjs@openoffice.org> | 2002-04-19 15:05:45 +0000 |
---|---|---|
committer | Hans-Joachim Lankenau <hjs@openoffice.org> | 2002-04-19 15:05:45 +0000 |
commit | be80ada7f9901ad7e16a7d0d227aa9578f5ee820 (patch) | |
tree | 3cd3bce6168aadc8dd397d75082bb01d1f82fdb2 /solenv/bin/guw.pl | |
parent | 132c791d7404222148a4b2d9c043258f4e76064e (diff) |
preserve single / for regmerge
Diffstat (limited to 'solenv/bin/guw.pl')
-rwxr-xr-x | solenv/bin/guw.pl | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/solenv/bin/guw.pl b/solenv/bin/guw.pl index 941a580e56b7..6ddeb356065b 100755 --- a/solenv/bin/guw.pl +++ b/solenv/bin/guw.pl @@ -5,9 +5,9 @@ eval 'exec perl -wS $0 ${1+"$@"}' # # $RCSfile: guw.pl,v $ # -# $Revision: 1.2 $ +# $Revision: 1.3 $ # -# last change: $Author: hjs $ $Date: 2002-04-18 11:12:47 $ +# last change: $Author: hjs $ $Date: 2002-04-19 16:05:45 $ # # The Contents of this file are made available subject to the terms of # either of the following licenses @@ -115,6 +115,7 @@ sub WinFormat { $variable =~ s/$d1/$d2/ ; } $variable =~ s/\//\\/g; # Remaining \ come from e.g.: ../foo/baa + $variable =~ s/^\\$/\//g; # a single "/" needs to be preserved if ( defined $debug ) { print(STDERR "WinFormat:\nresult:\n$variable\n");}; return $variable; |