From: Yves Orton <demerphq@gmail.com>
Date: Sat, 17 Dec 2005 19:52:00 +0000 (+0000)
Subject: Make script embedded in patchlevel.h work on win32.
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=538f996c62318eccc7409ecba802831611739437;p=p5sagit%2Fp5-mst-13.2.git

Make script embedded in patchlevel.h work on win32.
Message-ID: <9b18b3110512171052h2052d598rdf038f1d38560317@mail.gmail.com>

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

diff --git a/patchlevel.h b/patchlevel.h
index 5b118cf..af6e18f 100644
--- a/patchlevel.h
+++ b/patchlevel.h
@@ -100,6 +100,7 @@ while (<PLIN>) {
 }
 close PLOUT or die "Couldn't close filehandle writing to patchlevel.new : $!";
 close PLIN or die "Couldn't close filehandle reading from patchlevel.h : $!";
+close DATA; # needed to allow unlink to work win32.
 unlink "patchlevel.bak" or warn "Couldn't unlink patchlevel.bak : $!"
   if -e "patchlevel.bak";
 rename "patchlevel.h", "patchlevel.bak" or