dgit: Break out @forbid in check_not_dirty

[dgit.git] / dgit

diff --git a/dgit b/dgit
index 3591231fba1ce27d8c1673f1a889ee0240d4c40e..5754e45676393f15294a16cbc27e79512b8017ec 100755 (executable)
--- a/dgit
+++ b/dgit
@@ -3817,7 +3817,8 @@ sub pull () {
 }
 
 sub check_not_dirty () {
 }
 
 sub check_not_dirty () {

-    foreach my $f (qw(local-options local-patch-header)) {
+    my @forbid = qw(local-options local-patch-header);
+    foreach my $f (@forbid) {

        if (stat_exists "debian/source/$f") {
            fail f_ "git tree contains debian/source/%s", $f;
        }
        if (stat_exists "debian/source/$f") {
            fail f_ "git tree contains debian/source/%s", $f;
        }