[Bps-public-commit] r9049 - in SVN-Hook/lib/SVN: Hook

[clkao at bestpractical.com]

Author: clkao
Date: Fri Sep 14 05:59:49 2007
New Revision: 9049

Modified:
   SVN-Hook/lib/SVN/Hook.pm
   SVN-Hook/lib/SVN/Hook/Redispatch.pm

Log:
Minor fixes

Modified: SVN-Hook/lib/SVN/Hook.pm
==============================================================================
--- SVN-Hook/lib/SVN/Hook.pm	(original)
+++ SVN-Hook/lib/SVN/Hook.pm	Fri Sep 14 05:59:49 2007
@@ -70,7 +70,6 @@
 # will run scripts under _$hook/bar/ when commit are solely within foo.
 }, \@ARGV;
 exit 0;
-use SVN::Hook::CLI; SVN::Hook::CLI->_run("$hook", \@ARGV);
 EOF
 
     mkdir catfile($self->repospath, 'hooks', "_$hook") or die $!;

Modified: SVN-Hook/lib/SVN/Hook/Redispatch.pm
==============================================================================
--- SVN-Hook/lib/SVN/Hook/Redispatch.pm	(original)
+++ SVN-Hook/lib/SVN/Hook/Redispatch.pm	Fri Sep 14 05:59:49 2007
@@ -17,7 +17,7 @@
     # hooks/pre-commit itself
 
     if ($hook_base->parent =~ m'hooks$') { # the hook file itself
-	my $type = $hook_base->basename;
+	$type = $hook_base->basename;
 	$hook_base = $hook_base->parent->subdir("_".$type);
     }
     else {