From 083047a8d2bab13d11d5e1a81572c22f0576976a Mon Sep 17 00:00:00 2001
From: Jarkko Hietaniemi <jhi@iki.fi>
Date: Fri, 27 Oct 2000 14:42:20 +0000
Subject: Do away with the fix_pl.

p4raw-id: //depot/perl@7458
---
 fix_pl | 21 ---------------------
 1 file changed, 21 deletions(-)
 delete mode 100644 fix_pl

(limited to 'fix_pl')

diff --git a/fix_pl b/fix_pl
deleted file mode 100644
index 44c3f52170..0000000000
--- a/fix_pl
+++ /dev/null
@@ -1,21 +0,0 @@
-#!perl
-# Not fixing perl, but fixing the patchlevel if this perl comes
-# from the repository rather than an official release
-exit unless -e ".patch";
-open PATCH, ".patch" or die "Couldn't open .patch: $!";
-open PLIN, "patchlevel.h" or die "Couldn't open patchlevel.h : $!";
-open PLOUT, ">patchlevel.new" or die "Couldn't write on patchlevel.new : $!";
-my $pl = <PATCH>;
-chomp ($pl);
-$pl =~ s/\D//g;
-my $seen=0;
-while (<PLIN>) {
-    if (/\t,NULL/ and $seen) {
-        print PLOUT "\t,\"devel-$pl\"\n";
-    }
-    $seen++ if /local_patches\[\]/;
-    print PLOUT;
-}
-close PLOUT; close PLIN;
-rename "patchlevel.new", "patchlevel.h" or die "Couldn't rename: $!";
-unlink ".patch";
-- 
cgit v1.2.1