diff options
Diffstat (limited to 'lib/GitACL/File.pm')
-rw-r--r-- | lib/GitACL/File.pm | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/lib/GitACL/File.pm b/lib/GitACL/File.pm index 8842ffd..efabfd4 100644 --- a/lib/GitACL/File.pm +++ b/lib/GitACL/File.pm @@ -1,8 +1,8 @@ # This file is part of gitaclhook -*- perl -*- -# Copyright (C) 2013 Sergey Poznyakoff <gray@gnu.org> +# Copyright (C) 2013, 2014 Sergey Poznyakoff <gray@gnu.org> # # Gitaclhook is free software; you can redistribute it and/or modify # it under the terms of the GNU General Public License as published by # the Free Software Foundation; either version 3, or (at your option) # any later version. # @@ -21,13 +21,13 @@ sub check_acl { my $self = shift; my $fd; my $line = 0; my @ret; my $filename = GitACL::git_value('config', 'hooks.aclfile'); - $self->allow("no ACL configured for ".$self->project_name) + $self->allow("no ACL configured for ".$self->{project_name}) unless defined($filename); open($fd, "<", $filename) or $self->deny("cannot open configuration file: $!"); while (<$fd>) { ++$line; @@ -49,10 +49,10 @@ sub check_acl { } else { $res[0]->($self, "$filename:$line"); } exit(127); } close($fd); - $self->allow("default rule"); + $self->default_rule; } 1; |