r54055 - in /branches/upstream/libsvn-hooks-perl/current: Changes META.yml README lib/SVN/Hooks.pm lib/SVN/Hooks/DenyChanges.pm t/02-denychanges.t

[franck at users.alioth.debian.org]

Author: franck
Date: Wed Mar 10 23:32:23 2010
New Revision: 54055

URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=54055
Log:
[svn-upgrade] Integrating new upstream version, libsvn-hooks-perl (0.27)

Modified:
    branches/upstream/libsvn-hooks-perl/current/Changes
    branches/upstream/libsvn-hooks-perl/current/META.yml
    branches/upstream/libsvn-hooks-perl/current/README
    branches/upstream/libsvn-hooks-perl/current/lib/SVN/Hooks.pm
    branches/upstream/libsvn-hooks-perl/current/lib/SVN/Hooks/DenyChanges.pm
    branches/upstream/libsvn-hooks-perl/current/t/02-denychanges.t

Modified: branches/upstream/libsvn-hooks-perl/current/Changes
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libsvn-hooks-perl/current/Changes?rev=54055&op=diff
==============================================================================
--- branches/upstream/libsvn-hooks-perl/current/Changes (original)
+++ branches/upstream/libsvn-hooks-perl/current/Changes Wed Mar 10 23:32:23 2010
@@ -1,8 +1,13 @@
 Revision history for SVN-Hooks. -*- text -*-
 
+0.27    2010-03-09
+
+	Substitutes DENY_EXCEPT_USERS for DENY_EXEMPT_USERS.
+	(My wife asked me to change it.)
+
 0.26    2010-03-08
 
-	Implements the DENY_EXEMP_USERS directive in DenyChanges.
+	Implements the DENY_EXEMPT_USERS directive in DenyChanges.
 
 0.25    2010-01-19
 

Modified: branches/upstream/libsvn-hooks-perl/current/META.yml
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libsvn-hooks-perl/current/META.yml?rev=54055&op=diff
==============================================================================
--- branches/upstream/libsvn-hooks-perl/current/META.yml (original)
+++ branches/upstream/libsvn-hooks-perl/current/META.yml Wed Mar 10 23:32:23 2010
@@ -1,6 +1,6 @@
 --- #YAML:1.0
 name:                SVN-Hooks
-version:             0.26
+version:             0.27
 abstract:            A framework for implementing Subversion hooks.
 license:             ~
 author:              

Modified: branches/upstream/libsvn-hooks-perl/current/README
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libsvn-hooks-perl/current/README?rev=54055&op=diff
==============================================================================
--- branches/upstream/libsvn-hooks-perl/current/README (original)
+++ branches/upstream/libsvn-hooks-perl/current/README Wed Mar 10 23:32:23 2010
@@ -1,6 +1,6 @@
 Name:    SVN-Hooks
 What:    Framework for Subversion hooks
-Version: 0.26
+Version: 0.27
 Author:  Gustavo Chaves <gnustavo at cpan.org>
 
 SVN-Hooks is a framework for creating Subversion hooks

Modified: branches/upstream/libsvn-hooks-perl/current/lib/SVN/Hooks.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libsvn-hooks-perl/current/lib/SVN/Hooks.pm?rev=54055&op=diff
==============================================================================
--- branches/upstream/libsvn-hooks-perl/current/lib/SVN/Hooks.pm (original)
+++ branches/upstream/libsvn-hooks-perl/current/lib/SVN/Hooks.pm Wed Mar 10 23:32:23 2010
@@ -15,11 +15,11 @@
 
 =head1 VERSION
 
-Version 0.26
+Version 0.27
 
 =cut
 
-our $VERSION = '0.26';
+our $VERSION = '0.27';
 
 =head1 SYNOPSIS
 

Modified: branches/upstream/libsvn-hooks-perl/current/lib/SVN/Hooks/DenyChanges.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libsvn-hooks-perl/current/lib/SVN/Hooks/DenyChanges.pm?rev=54055&op=diff
==============================================================================
--- branches/upstream/libsvn-hooks-perl/current/lib/SVN/Hooks/DenyChanges.pm (original)
+++ branches/upstream/libsvn-hooks-perl/current/lib/SVN/Hooks/DenyChanges.pm Wed Mar 10 23:32:23 2010
@@ -7,7 +7,7 @@
 
 use Exporter qw/import/;
 my $HOOK = 'DENY_CHANGES';
-my @HOOKS = ('DENY_ADDITION', 'DENY_DELETION', 'DENY_UPDATE', 'DENY_EXEMPT_USERS');
+my @HOOKS = ('DENY_ADDITION', 'DENY_DELETION', 'DENY_UPDATE', 'DENY_EXCEPT_USERS');
 our @EXPORT = @HOOKS;
 
 our $VERSION = $SVN::Hooks::VERSION;
@@ -51,7 +51,7 @@
 This directive receives a list of user names which are to be exempt
 from the rules specified by the other directives.
 
-	DENY_EXEMPT_USERS(qw/john mary/);
+	DENY_EXCEPT_USERS(qw/john mary/);
 
 This rule exempts users C<john> and C<mary> from the other deny rules.
 
@@ -87,13 +87,13 @@
     return _deny_change(update => @args);
 }
 
-sub DENY_EXEMPT_USERS {
+sub DENY_EXCEPT_USERS {
     my @users = @_;
     my $conf = $SVN::Hooks::Confs->{$HOOK};
     foreach my $user (@users) {
-	croak "DENY_EXEMPT_USERS: all arguments must be strings\n"
+	croak "DENY_EXCEPT_USERS: all arguments must be strings\n"
 	    if ref $user;
-	$conf->{exempt}{$user} = undef;
+	$conf->{except}{$user} = undef;
     }
 
     return 1;
@@ -104,15 +104,15 @@
 	add    => [],
 	delete => [],
 	update => [],
-	exempt => {},
+	except => {},
     };
 };
 
 sub pre_commit {
     my ($self, $svnlook) = @_;
 
-    # Exempt users
-    return if %{$self->{exempt}} && exists $self->{exempt}{$svnlook->author()};
+    # Except users
+    return if %{$self->{except}} && exists $self->{except}{$svnlook->author()};
 
     my @errors;
 

Modified: branches/upstream/libsvn-hooks-perl/current/t/02-denychanges.t
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libsvn-hooks-perl/current/t/02-denychanges.t?rev=54055&op=diff
==============================================================================
--- branches/upstream/libsvn-hooks-perl/current/t/02-denychanges.t (original)
+++ branches/upstream/libsvn-hooks-perl/current/t/02-denychanges.t Wed Mar 10 23:32:23 2010
@@ -88,10 +88,10 @@
 
 set_conf(<<"EOS");
 DENY_ADDITION(qr/add/);
-DENY_EXEMPT_USERS($author);
+DENY_EXCEPT_USERS($author);
 EOS
 
-work_ok('exempt user', <<"EOS");
+work_ok('except user', <<"EOS");
 touch $t/wc/add
 svn add -q --no-auto-props $t/wc/add
 svn ci -mx $t/wc/add