#!/usr/bin/perl

my @command;
if (@ARGV == 1 && $ARGV[0] eq "quickfix") {
    @command = qw(gitc quickfix);
} else {
    if (@ARGV == 1 && $ARGV[0] =~ /^\d{5}[a-z]?$/) {
        warn "You meant *e* $ARGV[0]\n";
        $ARGV[0] = "e$ARGV[0]";
    }
    @command = (qw(gitc open), @ARGV);
}
exec @command;
die "couldn't run gitc: $!";