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

[clkao at bestpractical.com]

Author: clkao
Date: Thu Sep 13 10:55:03 2007
New Revision: 9036

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

Log:
minor fixes for svnhook status.

Modified: SVN-Hook/lib/SVN/Hook.pm
==============================================================================
--- SVN-Hook/lib/SVN/Hook.pm	(original)
+++ SVN-Hook/lib/SVN/Hook.pm	Thu Sep 13 10:55:03 2007
@@ -126,7 +126,7 @@
 	if (-x $path) {
 	    open my $fh, '<', $path or die $!;
 	    local $/;
-	    if (<$fh> =~ m/svnhook/) {
+	    if (<$fh> =~ m/managed by svnook/) {
 		$result->{$_} = scalar $self->scripts($_);
 		next;
 	    }

Modified: SVN-Hook/lib/SVN/Hook/CLI.pm
==============================================================================
--- SVN-Hook/lib/SVN/Hook/CLI.pm	(original)
+++ SVN-Hook/lib/SVN/Hook/CLI.pm	Thu Sep 13 10:55:03 2007
@@ -62,7 +62,7 @@
     my $status = $h->status;
     for (sort SVN::Hook->ALL_HOOKS) {
 	if (defined $status->{$_}) {
-	    print "$_: $status->{$_} scripts\n" if $status->{$_};
+	    print "$_: $status->{$_} scripts\n";
 	}
 	else {
 	    print "svnhook not enabled for $_.\n";