Permalink
Browse files

Compatibility with older perls

  • Loading branch information...
1 parent 7a8de81 commit 0ac7bd6821a81b0f123c93d0eeb068dd20a4b933 @seveas committed Jul 29, 2012
Showing with 2 additions and 2 deletions.
  1. +2 −2 lib/Gitalist/URIStructure/Ref.pm
@@ -171,7 +171,7 @@ sub history_compat : Chained('base') PathPart('history') Does('FilenameArgs') {
sub ref_log_compat : Chained('base') PathPart('log/refs') Does('FilenameArgs') {
my ($self, $c) = @_;
my $repo = $c->stash->{Repository};
- shift $c->req->args;
+ shift @{$c->req->args};
my $ref = join('%2f', @{$c->req->args});
$c->res->status(302);
$c->res->redirect($c->uri_for_action("/ref/longlog", [$repo->name, $ref]));
@@ -180,7 +180,7 @@ sub ref_log_compat : Chained('base') PathPart('log/refs') Does('FilenameArgs') {
sub ref_shortlog_compat : Chained('base') PathPart('shortlog/refs') Does('FilenameArgs') {
my ($self, $c) = @_;
my $repo = $c->stash->{Repository};
- shift $c->req->args;
+ shift @{$c->req->args};
my $ref = join('%2f', @{$c->req->args});
$c->res->status(302);
$c->res->redirect($c->uri_for_action("/ref/shortlog", [$repo->name, $ref]));

0 comments on commit 0ac7bd6

Please sign in to comment.