Signed-off-by: Ian Jackson <ijackson@chiark.greenend.org.uk>
# You should have received a copy of the GNU General Public License
# along with this program. If not, see <http://www.gnu.org/licenses/>.
# You should have received a copy of the GNU General Public License
# along with this program. If not, see <http://www.gnu.org/licenses/>.
+END { $? = $Debian::Dgit::ExitStatus::desired // -1; };
+use Debian::Dgit::ExitStatus;
+
use strict;
use Debian::Dgit qw(:DEFAULT :playground);
use strict;
use Debian::Dgit qw(:DEFAULT :playground);
sub badusage ($) {
my ($m) = @_;
print STDERR "bad usage: $m\n";
sub badusage ($) {
my ($m) = @_;
print STDERR "bad usage: $m\n";
$cmdfn or badusage "unknown git-debrebase sub-operation $cmd";
$cmdfn->();
}
$cmdfn or badusage "unknown git-debrebase sub-operation $cmd";
$cmdfn->();
}