This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Make script embedded in patchlevel.h work on win32.
[perl5.git] / patchlevel.h
index 5b118cf..af6e18f 100644 (file)
@@ -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