diff options
| author | Oliver Bolte <obo@openoffice.org> | 2006-01-17 11:23:19 +0000 |
|---|---|---|
| committer | Oliver Bolte <obo@openoffice.org> | 2006-01-17 11:23:19 +0000 |
| commit | 835b30fd4f22e8e06efa149c7a950e697e8fcefe (patch) | |
| tree | af6369f25f55d3900390dd8d0076c82e6765ea1b | |
| parent | 98812631d6529ae2463f151d6c9c77cce17c1a72 (diff) | |
#i10000# fix for correct generation of imagelists with wntmsci10
| -rw-r--r-- | helpcontent2/helpers/create_ilst.pl | 10 |
1 files changed, 7 insertions, 3 deletions
diff --git a/helpcontent2/helpers/create_ilst.pl b/helpcontent2/helpers/create_ilst.pl index 1963720869..08c06ac739 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.3 $ +# $Revision: 1.4 $ # -# last change: $Author: rt $ $Date: 2006-01-13 16:16:00 $ +# last change: $Author: obo $ $Date: 2006-01-17 12:23:19 $ # # The Contents of this file are made available subject to # the terms of GNU Lesser General Public License Version 2.1. @@ -45,9 +45,13 @@ $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; + + if ( -d $startdir ) { find(sub{push @files, $File::Find::name if (($File::Find::name=~/\.png$/));},$startdir); - foreach ( @files ) { s#.*$startdir/##; }; + foreach ( @files ) { s#.*$startdir_regexp[\\/]##; }; for (sort(@files)) { print "%GLOBALRES%/$pre/$_\n"; } |