From 69b694e91caacb1edf33aeb5786d5c03403f235f Mon Sep 17 00:00:00 2001
From: David Caldwell <david@porkrind.org>
Date: Tue, 25 Aug 2009 01:54:38 -0700
Subject: [PATCH] [commit-patch] Remove keys from %clean when renaming so we
 don't try to unlink it later.

---
 commit-patch | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/commit-patch b/commit-patch
index 825f9aa..3f22ca7 100755
--- a/commit-patch
+++ b/commit-patch
@@ -219,7 +219,7 @@ eval {
 };
 sub clean() {
     return if $dry_run;
-    foreach my $k (keys %clean) { rename $k,$clean{$k} if $clean{$k} }
+    foreach my $k (grep { $clean{$_} } keys %clean) { rename $k,$clean{$k}; delete $clean{$k} }
 }
 if ($@) {
     clean();
-- 
2.51.2