diff options
| author | Kurt Zenker <kz@openoffice.org> | 2006-07-05 20:44:11 +0000 |
|---|---|---|
| committer | Kurt Zenker <kz@openoffice.org> | 2006-07-05 20:44:11 +0000 |
| commit | 904bad3e0a7b5fab0486941b661b9f053150ba00 (patch) | |
| tree | d9f4ee93199cb8a9a0d6ac4896f65e9492711057 /helpcontent2/helpers | |
| parent | 1daa3fe1b0cfa4d1181d83a5145ecc9ff3b3ead2 (diff) | |
INTEGRATION: CWS ause058 (1.4.66); FILE MERGED
2006/06/09 10:10:01 hjs 1.4.66.1: #i60940# complete quoting for regexp
Diffstat (limited to 'helpcontent2/helpers')
| -rw-r--r-- | helpcontent2/helpers/create_ilst.pl | 7 |
1 files changed, 3 insertions, 4 deletions
diff --git a/helpcontent2/helpers/create_ilst.pl b/helpcontent2/helpers/create_ilst.pl index 08c06ac739..898d7eb22b 100644 --- a/helpcontent2/helpers/create_ilst.pl +++ b/helpcontent2/helpers/create_ilst.pl @@ -7,9 +7,9 @@ eval 'exec perl -wS $0 ${1+"$@"}' # # $RCSfile: create_ilst.pl,v $ # -# $Revision: 1.4 $ +# $Revision: 1.5 $ # -# last change: $Author: obo $ $Date: 2006-01-17 12:23:19 $ +# last change: $Author: kz $ $Date: 2006-07-05 21:44:11 $ # # The Contents of this file are made available subject to # the terms of GNU Lesser General Public License Version 2.1. @@ -45,8 +45,7 @@ $params = join "|", "",@ARGV,""; ($params =~ /-dir/) ? ($startdir = $params) =~ (s/.*-dir=([^\|]*).*$/$1/gs) : (($startdir = `pwd`) =~ s/\n//gs); ($params =~ /-pre/) ? ($pre = $params) =~ (s/.*-pre=([^\|]*).*$/$1/gs) : ($pre = "helpimg"); -my $startdir_regexp = $startdir; -$startdir_regexp =~ s/\\/\\\\/g; +my $startdir_regexp = quotemeta($startdir); if ( -d $startdir ) { |