Index: solenv/bin/deliver.pl
===================================================================
RCS file: /cvs/tools/solenv/bin/deliver.pl,v
retrieving revision 1.94
diff -u -r1.94 deliver.pl
--- solenv/bin/deliver.pl	14 Dec 2005 15:31:07 -0000	1.94
+++ solenv/bin/deliver.pl	21 Dec 2005 04:26:38 -0000
@@ -111,6 +111,12 @@
 $opt_link           = 0;            # hard link files into the solver to save disk space
 $opt_deloutput      = 0;            # delete the output tree for the project once successfully delivered
 
+if ($^O ne 'cygwin') {              # iz59477 - cygwin needes a dot "." at the end of filenames to disable
+  $maybedot     = '';               # some .exe transformation magic.
+} else {
+  $maybedot     = '.';
+}
+
 if ( $ENV{GUI} eq 'WNT' ) {
     if ($ENV{COM} eq 'GCC') {
         warn("Warning: do we need stripping for windows gcc? Nothing defined yet.");
@@ -701,7 +707,7 @@
 sub is_unstripped {
     my $file_name = shift;
 
-    if (-f $file_name && (( `file $file_name` ) =~ /not stripped/o)) {
+    if (-f $file_name.$maybedot && (( `file $file_name` ) =~ /not stripped/o)) {
         return '1' if ($file_name =~ /\.bin$/o);
         return '1' if ($file_name =~ /\.so\.*/o);
         return '1' if (basename($file_name) !~ /\./o);
@@ -1099,7 +1105,7 @@
     return 0 if ( $opt_check );
     return -1 if ( $#entry != 2 );
     if (( $entry[0] eq "COPY" ) || ( $entry[0] eq "HEDABU" )) {
-        return 0 if ( ! -e $entry[1] );
+        return 0 if ( ! -e $entry[1].$maybedot );
         # make 'from' relative to source root
         $entry[1] = $module . "/prj/" . $entry[1];
         $entry[1] =~ s/^$module\/prj\/\.\./$module/;