From: Jarkko Hietaniemi <jhi@iki.fi>
Date: Sun, 27 Jan 2002 23:49:40 +0000 (+0000)
Subject: Further cygwin installperl tweak from Gerrit P. Haase.
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=dccaffe8d8a31abd1473695366e86c8553f16488;p=p5sagit%2Fp5-mst-13.2.git

Further cygwin installperl tweak from Gerrit P. Haase.

p4raw-id: //depot/perl@14456
---

diff --git a/installperl b/installperl
index c4cab78..6b702bd 100755
--- a/installperl
+++ b/installperl
@@ -245,7 +245,7 @@ if (($Is_W32 and ! $Is_NetWare)  or $Is_Cygwin) {
         chmod(0755, "$installbin/$_");
       };
       { 
-		open (LD2, "$installbin/ld2");
+		open (LD2, ">$installbin/ld2");
 		print LD2 "#!/bin/sh\n#\n# ld wrapper, passes all args to perlld;\n#\n"
 		          . "for trythis in $installbin/perl\ndo\n  if [ -x \$trythis ]\n"
 		          . "  then\n    \$trythis $installbin/perlld \"\$\@\"\n"