r67457 - in /branches/upstream/libsvn-hooks-perl/current: Changes META.yml README lib/SVN/Hooks.pm t/02-generic.t t/test-functions.pl

angelabad-guest at users.alioth.debian.org angelabad-guest at users.alioth.debian.org
Mon Jan 17 02:24:54 UTC 2011


Author: angelabad-guest
Date: Mon Jan 17 02:24:40 2011
New Revision: 67457

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

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/t/02-generic.t
    branches/upstream/libsvn-hooks-perl/current/t/test-functions.pl

Modified: branches/upstream/libsvn-hooks-perl/current/Changes
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libsvn-hooks-perl/current/Changes?rev=67457&op=diff
==============================================================================
--- branches/upstream/libsvn-hooks-perl/current/Changes (original)
+++ branches/upstream/libsvn-hooks-perl/current/Changes Mon Jan 17 02:24:40 2011
@@ -1,4 +1,8 @@
 Revision history for SVN-Hooks. -*- text -*-
+
+0.33    2011-01-16
+
+	Corrects a few gotchas in the test suite.
 
 0.32	2010-12-10
 

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=67457&op=diff
==============================================================================
--- branches/upstream/libsvn-hooks-perl/current/META.yml (original)
+++ branches/upstream/libsvn-hooks-perl/current/META.yml Mon Jan 17 02:24:40 2011
@@ -1,6 +1,6 @@
 --- #YAML:1.0
 name:               SVN-Hooks
-version:            0.32
+version:            0.33
 abstract:           A framework for implementing Subversion hooks.
 author:
     - Gustavo Chaves <gnustavo at cpan.org>

Modified: branches/upstream/libsvn-hooks-perl/current/README
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libsvn-hooks-perl/current/README?rev=67457&op=diff
==============================================================================
--- branches/upstream/libsvn-hooks-perl/current/README (original)
+++ branches/upstream/libsvn-hooks-perl/current/README Mon Jan 17 02:24:40 2011
@@ -1,6 +1,6 @@
 Name:    SVN-Hooks
 What:    Framework for Subversion hooks
-Version: 0.32
+Version: 0.33
 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=67457&op=diff
==============================================================================
--- branches/upstream/libsvn-hooks-perl/current/lib/SVN/Hooks.pm (original)
+++ branches/upstream/libsvn-hooks-perl/current/lib/SVN/Hooks.pm Mon Jan 17 02:24:40 2011
@@ -15,11 +15,11 @@
 
 =head1 VERSION
 
-Version 0.32
+Version 0.33
 
 =cut
 
-our $VERSION = '0.32';
+our $VERSION = '0.33';
 
 =head1 SYNOPSIS
 
@@ -108,7 +108,7 @@
 =item B<Inefficiency>
 
 This arrangement is inefficient in two ways. First because each script
-runs is a separate process, which usually have a high startup cost
+runs as a separate process, which usually have a high startup cost
 because they are, well, scripts and not binaries. And second, because
 as each script is called in turn they have no memory of the scripts
 called before and have to gather the information about the transaction
@@ -181,7 +181,8 @@
 
 =item SVN::Hooks::Generic
 
-This meta plugin allows for the easy creation of custom made hooks.
+This meta plugin allows for the easy creation of custom made hooks,
+with functionality not yet provided by any of the other plugins.
 
 =item SVN::Hooks::Notify
 
@@ -204,6 +205,7 @@
 which you are interested.
 
 	$ cd /path/to/repo/hooks
+
 	$ cat svn-hooks.pl
 	#!/usr/bin/perl
 
@@ -219,14 +221,20 @@
 	use SVN::Hooks::CheckStructure;
 	use SVN::Hooks::DenyChanges;
 	use SVN::Hooks::DenyFilenames;
+	use SVN::Hooks::Generic;
 	use SVN::Hooks::Notify;
 	use SVN::Hooks::UpdateRepoFile;
 
 	run_hook($0, @ARGV);
+
 	$ chmod +x svn-hooks.pl
 
 This script will serve for any hook. Create symbolic links pointing to
-it for each hook you are interested in.
+it for each hook you are interested in. (You may create symbolic links
+for all nine hooks, but this will make Subversion call the script for
+all hooked operations, even for those that you may not be interested
+in. Nothing wrong will happen, but the server will be doing work for
+nothing.)
 
 	$ ln -s svn-hooks.pl start-commit
 	$ ln -s svn-hooks.pl pre-commit
@@ -236,7 +244,7 @@
 The default configuration file for the hook is called
 C<svn-hooks.conf> in the C<conf> directory under the directory where
 the repository was created. It's just another Perl script calling
-special functions acting as configuration directives that were defined
+special functions acting as configuration directives that are defined
 by the plugins.
 
 	$ cd ../conf

Modified: branches/upstream/libsvn-hooks-perl/current/t/02-generic.t
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libsvn-hooks-perl/current/t/02-generic.t?rev=67457&op=diff
==============================================================================
--- branches/upstream/libsvn-hooks-perl/current/t/02-generic.t (original)
+++ branches/upstream/libsvn-hooks-perl/current/t/02-generic.t Mon Jan 17 02:24:40 2011
@@ -115,7 +115,7 @@
 );
 EOS
 
-work_nok('cry pre-lock' => "$t/repo,/file.txt,", <<"EOS");
+work_nok('cry pre-lock' => qr:\Q$t\E/repo,/?file.txt,:, <<"EOS");
 svn lock -mx $t/wc/file.txt
 EOS
 
@@ -125,7 +125,7 @@
 );
 EOS
 
-work_nok('cry pre-unlock' => "$t/repo,/file.txt,", <<"EOS");
+work_nok('cry pre-unlock' => qr:\Q$t\E/repo,/?file.txt,:, <<"EOS");
 svn lock $t/wc/file.txt
 svn unlock $t/wc/file.txt
 EOS

Modified: branches/upstream/libsvn-hooks-perl/current/t/test-functions.pl
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libsvn-hooks-perl/current/t/test-functions.pl?rev=67457&op=diff
==============================================================================
--- branches/upstream/libsvn-hooks-perl/current/t/test-functions.pl (original)
+++ branches/upstream/libsvn-hooks-perl/current/t/test-functions.pl Mon Jan 17 02:24:40 2011
@@ -90,7 +90,7 @@
 use strict;
 use warnings;
 EOS
-    if (defined $ENV{PERL5LIB}) {
+    if (defined $ENV{PERL5LIB} and length $ENV{PERL5LIB}) {
 	foreach my $path (reverse split /:/, $ENV{PERL5LIB}) {
 	    print $fd "use lib '$path';\n";
 	}




More information about the Pkg-perl-cvs-commits mailing list