From 586adb2e88c13c969b60268efffee3542ee73d96 Mon Sep 17 00:00:00 2001
From: Rüdiger Timm <rt@openoffice.org>
Date: Mon, 2 Jan 2006 09:06:46 +0000
Subject: #i59882# cygwin perl in 4nt shell cannot work with backslashes in
 glob pattern (patch by vq).

---
 postprocess/checkdeliver/checkdeliver.pl | 11 +++++++++--
 1 file 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 ) {
-- 
cgit