Dgit.pm: Break out failedcmd_waitstatus

[dgit.git] / dgit

diff --git a/dgit b/dgit
index 33306dade1b87c45c507964eb7199333946cb342..5fa500c65cc7ff2393d0ceb6fdce458b52446954 100755 (executable)
--- a/dgit
+++ b/dgit
@@ -73,7 +73,7 @@ our $tagformat_want;
 our $tagformat;
 our $tagformatfn;
 
-our %forceopts = map { $_=>0 } ();
+our %forceopts = map { $_=>0 } qw(unrepresentable);
 
 our %format_ok = map { $_=>1 } ("1.0","3.0 (native)","3.0 (quilt)");
 
@@ -4613,7 +4613,7 @@ END
     if (@unrepres) {
        print STDERR "dgit:  cannot represent change: $_->[1]: $_->[0]\n"
            foreach @unrepres;
-       fail <<END;
+       forceable_fail [qw(unrepresentable)], <<END;
 HEAD has changes to .orig[s] which are not representable by `3.0 (quilt)'
 END
     }