Check for deliberatelies correctly (in-memory data structures have full name)

diff --git a/dgit b/dgit
index e80faf3ec8f7f56a90582950ad43565945b621b6..5d239d692155079085853cf93f0d383704657bd9 100755 (executable)
--- a/dgit
+++ b/dgit
@@ -183,7 +183,8 @@ sub changedir ($) {
 }
 
 sub deliberately ($) {
 }
 
 sub deliberately ($) {

-    return !!grep { $_[0] eq $_ } @deliberatelies;
+    my ($enquiry) = @_;
+    return !!grep { $_ eq "--deliberately-$enquiry" } @deliberatelies;

 }
 
 #---------- remote protocol support, common ----------
 }
 
 #---------- remote protocol support, common ----------

diff --git a/infra/dgit-repos-policy-debian b/infra/dgit-repos-policy-debian
index 06ad0022bd878aa4c771fc804052bc1c268a1aed..387fa5487ab6bdad212f402a288f661e65954933 100755 (executable)
--- 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();
 
 sub action_push () {
     getpackage();