}
my %escapes = (
- '^' => sub { '^' },
+ '@' => sub { '@' },
'n' => sub { shift->name },
'g' => sub { _abs2rel(shift->repo, shift->root) },
'G' => sub { shift->repo },
return unless $conf->isa('App::Rgit::Config');
my @args = @_;
unless ($self->fake) {
- s/\^($e)/$escapes{$1}->($self, $conf)/eg for @args;
+ s/@($e)/$escapes{$1}->($self, $conf)/eg for @args;
}
unshift @args, $conf->git;
$conf->info('Executing "', join(' ', @args), '" into ', $self->work, "\n");