#!/usr/bin/perl use 5.028; use strict; use warnings; use autodie; use Term::UI; system qw(dgit sbuild); my $term = Term::ReadLine->new("brand"); exit unless $term->ask_yn(prompt => "run athena-apt-add and git tag?"); chomp(my $version = `dpkg-parsechangelog -SVersion`); chomp(my $package = `dpkg-parsechangelog -SSource`); system "athena-apt-add", "../${package}_${version}_multi.changes"; system qw(gbp buildpackage --git-tag-only --git-ignore-branch);