cmd_version: check error

[dgit.git] / dgit

diff --git a/dgit b/dgit
index 7be8e30846a6f2d927f1db52154baf67e7168c7e..37e83641324dbcdb30d9ecc4b0f4c7b7c0fb9964 100755 (executable)
--- a/dgit
+++ b/dgit
@@ -28,6 +28,8 @@ use File::Basename;
 use Dpkg::Version;
 use POSIX;
 
+our $our_version = 'UNRELEASED'; ###substituted###
+
 our $isuite = 'unstable';
 our $idistro;
 our $package;
@@ -1199,6 +1201,10 @@ sub cmd_quilt_fixup {
     build_maybe_quilt_fixup();
 }
 
+sub cmd_version {
+    print "dgit version $our_version\n" or die $!;
+}
+
 sub parseopts () {
     my $om;
     while (@ARGV) {