X-Git-Url: http://git.vpit.fr/?p=perl%2Fmodules%2Frgit.git;a=blobdiff_plain;f=lib%2FApp%2FRgit%2FRepository.pm;fp=lib%2FApp%2FRgit%2FRepository.pm;h=8a915b09f54fcc45b94274f5be74f8c1cd1e64cb;hp=dbdfe731a86970373395bbca4138676d748675cc;hb=9fa31a712601956c8e4c34cbfc0af111346920c3;hpb=a5ba1389e8ec450b16fd6e283f3edc80df1878c9

diff --git a/lib/App/Rgit/Repository.pm b/lib/App/Rgit/Repository.pm
index dbdfe73..8a915b0 100644
--- a/lib/App/Rgit/Repository.pm
+++ b/lib/App/Rgit/Repository.pm
@@ -119,7 +119,7 @@ sub _abs2rel {
 }
 
 my %escapes = (
- '@' => sub { '@' },
+ '%' => sub { '%' },
  'n' => sub { shift->name },
  'g' => sub { _abs2rel(shift->repo, shift->root) },
  'G' => sub { shift->repo },
@@ -141,7 +141,7 @@ sub run {
  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");