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