diff options
author | Jens-Heiner Rechtien <hr@openoffice.org> | 2004-02-04 11:36:59 +0000 |
---|---|---|
committer | Jens-Heiner Rechtien <hr@openoffice.org> | 2004-02-04 11:36:59 +0000 |
commit | 77eda52980854e947ecaa8cb959111c7eba18e9f (patch) | |
tree | 16f84d96e6e5552baa5abee47166f271e020446c /solenv/bin/guw.pl | |
parent | d23e07cd50cae1699223f2932eeb0db26649646e (diff) |
INTEGRATION: CWS ooo20031216 (1.12.2); FILE MERGED
2003/12/15 02:26:14 vq 1.12.2.1: #23549 Teach guw.pl how to handle -X<something>=<path>
Diffstat (limited to 'solenv/bin/guw.pl')
-rwxr-xr-x | solenv/bin/guw.pl | 7 |
1 files changed, 4 insertions, 3 deletions
diff --git a/solenv/bin/guw.pl b/solenv/bin/guw.pl index a48cf4d7ea60..48a0fbce02de 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.12 $ +# $Revision: 1.13 $ # -# last change: $Author: rt $ $Date: 2003-12-01 16:17:29 $ +# last change: $Author: hr $ $Date: 2004-02-04 12:36:59 $ # # The Contents of this file are made available subject to the terms of # either of the following licenses @@ -112,8 +112,9 @@ sub WinFormat { chomp( $d2 = qx{cygpath -w "$d1"} ) ; $variable =~ s/$d1/$d2/ ; } - if ( $variable =~ /\A(-\w)[\'\"]?((?:\/[\w\.\- ~]+)+\/?)[\'\"]?\Z/ ) { # Include paths (sometimes with "/" at the end) + if ( $variable =~ /\A(-\w(?:[\w\.]+=)?)[\'\"]?((?:\/[\w\.\- ~]+)+\/?)[\'\"]?\Z/ ) { # Include paths (sometimes with "/" at the end) # This regex: option -> $1, filename without quotes -> $2 + # option may be of the form -X<path> or -X<something>=<path> if ( defined $debug ) { print(STDERR "WinFormat:\ninclude path:\n$variable\n");}; $d1_prefix = $1; $d1 = $2; |