chiark / gitweb /
Check for deliberatelies correctly (in-memory data structures have full name)
authorIan Jackson <ijackson@chiark.greenend.org.uk>
Sun, 17 May 2015 13:15:34 +0000 (14:15 +0100)
committerIan Jackson <ijackson@chiark.greenend.org.uk>
Sun, 31 May 2015 10:54:14 +0000 (11:54 +0100)
dgit
infra/dgit-repos-policy-debian

diff --git a/dgit b/dgit
index e80faf3..5d239d6 100755 (executable)
--- 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 ----------
index 06ad002..387fa54 100755 (executable)
@@ -250,7 +250,7 @@ sub getpushinfo () {
     }
 }
 
-sub deliberately ($) { return $deliberately{$_[0]}; }
+sub deliberately ($) { return $deliberately{"--deliberately-$_[0]"}; }
 
 sub action_push () {
     getpackage();