#!/usr/bin/perl
# On branch e31508

sub fail {
  my ($msg) = @_;
  warn $msg, "\n";
  print "eXXXXX\n";
  exit 1;
}

my ($st) = qx{ git status };
my ($branch) = $st =~ /^# On branch (\w+)/
  or fail "Couldn't parse output of git-status";
$branch =~ /\A e\d{5} [a-z]? \z/x
  or fail "Branch doesn't look like eventum issue number";

$branch =~ s/[a-z] \z//x if @ARGV;
$branch .= $ARGV[0] if $ARGV[0] =~ /^[a-z]$/;
print $branch, "\n";
exit 0;