diff options
| author | Rüdiger Timm <rt@openoffice.org> | 2006-01-02 09:06:46 +0000 |
|---|---|---|
| committer | Rüdiger Timm <rt@openoffice.org> | 2006-01-02 09:06:46 +0000 |
| commit | 586adb2e88c13c969b60268efffee3542ee73d96 (patch) | |
| tree | 21627c4e4f934dfa3854da4801c0b2a74b9a94ab /postprocess | |
| parent | 69789684d61996b581d48e8aa274c32e5d59f9b3 (diff) | |
#i59882# cygwin perl in 4nt shell cannot work with backslashes in glob pattern (patch by vq).
Diffstat (limited to 'postprocess')
| -rw-r--r-- | postprocess/checkdeliver/checkdeliver.pl | 11 |
1 files changed, 9 insertions, 2 deletions
diff --git a/postprocess/checkdeliver/checkdeliver.pl b/postprocess/checkdeliver/checkdeliver.pl index 31afdc0a4415..ceaa122016ec 100644 --- a/postprocess/checkdeliver/checkdeliver.pl +++ b/postprocess/checkdeliver/checkdeliver.pl @@ -7,9 +7,9 @@ eval 'exec perl -wS $0 ${1+"$@"}' # # $RCSfile: checkdeliver.pl,v $ # -# $Revision: 1.2 $ +# $Revision: 1.3 $ # -# last change: $Author: rt $ $Date: 2005-12-14 15:35:55 $ +# last change: $Author: rt $ $Date: 2006-01-02 10:06:46 $ # # The Contents of this file are made available subject to # the terms of GNU Lesser General Public License Version 2.1. @@ -106,6 +106,13 @@ sub get_deliver_lists my $pattern = "$solverdir/$platform/inc"; $pattern .= "$milestoneext" if ( $milestoneext ); $pattern .= "/*/deliver.log"; + + if ( $^O =~ /cygwin/i && $ENV{'USE_SHELL'} eq "4nt" ) + { # glob from cygwin's perl needs $pattern to use only slashes. + # (DOS style path are OK as long as slashes are used.) + $pattern =~ s/\\/\//g; + } + @files = glob( $pattern ); # do not check modules not yet built foreach my $exceptionpattern ( @exceptionmodlist ) { |