From eb3b3a8f4be0903cd73193e563c7b56ad48bf54e Mon Sep 17 00:00:00 2001
From: Ian Jackson <ijackson@chiark.greenend.org.uk>
Date: Sun, 17 May 2015 14:15:34 +0100
Subject: [PATCH 1/1] Check for deliberatelies correctly (in-memory data
 structures have full name)

---
 dgit                           | 3 ++-
 infra/dgit-repos-policy-debian | 2 +-
 2 files changed, 3 insertions(+), 2 deletions(-)

diff --git a/dgit b/dgit
index e80faf3e..5d239d69 100755
--- a/dgit
+++ b/dgit
@@ -183,7 +183,8 @@ sub changedir ($) {
 }
 
 sub deliberately ($) {
-    return !!grep { $_[0] eq $_ } @deliberatelies;
+    my ($enquiry) = @_;
+    return !!grep { $_ eq "--deliberately-$enquiry" } @deliberatelies;
 }
 
 #---------- remote protocol support, common ----------
diff --git a/infra/dgit-repos-policy-debian b/infra/dgit-repos-policy-debian
index 06ad0022..387fa548 100755
--- a/infra/dgit-repos-policy-debian
+++ b/infra/dgit-repos-policy-debian
@@ -250,7 +250,7 @@ sub getpushinfo () {
     }
 }
 
-sub deliberately ($) { return $deliberately{$_[0]}; }
+sub deliberately ($) { return $deliberately{"--deliberately-$_[0]"}; }
 
 sub action_push () {
     getpackage();
-- 
2.30.2