From b17e7cf9794b406aa26dd2ccbe2f64c1ba981d99 Mon Sep 17 00:00:00 2001 From: Eelco Dolstra 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; +}