From a3522f3c05881c36b5630fc6aaa21dde22b5dd06 Mon Sep 17 00:00:00 2001
From: Ian Jackson <ijackson@chiark.greenend.org.uk>
Date: Mon, 4 Aug 2014 01:03:57 +0100
Subject: Print better message for unknown operations.

---
 dgit | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

(limited to 'dgit')

diff --git a/dgit b/dgit
index 4125c37..2852e13 100755
--- a/dgit
+++ b/dgit
@@ -2218,4 +2218,7 @@ if (!@ARGV) {
 }
 my $cmd = shift @ARGV;
 $cmd =~ y/-/_/;
-{ no strict qw(refs); &{"cmd_$cmd"}(); }
+
+my $fn = ${*::}{"cmd_$cmd"};
+$fn or badusage "unknown operation $cmd";
+$fn->();
-- 
cgit v1.2.3