From b17e7cf9794b406aa26dd2ccbe2f64c1ba981d99 Mon Sep 17 00:00:00 2001
From: Eelco Dolstra <e.dolstra@tudelft.nl>
Date: Wed, 12 Jan 2005 10:40:59 +0000
Subject: [PATCH] * Script to remove patches from manifests.

---
 scripts/remove-patches.pl | 19 +++++++++++++++++++
 1 file changed, 19 insertions(+)
 create mode 100755 scripts/remove-patches.pl

diff --git a/scripts/remove-patches.pl b/scripts/remove-patches.pl
new file mode 100755
index 000000000..8329ab038
--- /dev/null
+++ b/scripts/remove-patches.pl
@@ -0,0 +1,19 @@
+#! /usr/bin/perl -w -I/home/eelco/nix/scripts
+
+use strict;
+use readmanifest;
+
+for my $p (@ARGV) {
+
+    my %narFiles;
+    my %patches;
+    my %successors;
+
+    readManifest $p,
+        \%narFiles, \%patches, \%successors;
+
+    %patches = ();
+    
+    writeManifest $p,
+        \%narFiles, \%patches, \%successors;
+}