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

1 files changed, 2 insertions, 1 deletions

diff --git a/dgit b/dgit
index e80faf3..5d239d6 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 ----------