[Bps-public-commit] App-Changeloggr branch, master, updated. fc71357129df2ceea0bb18b904f494f6621ab524

sartak at bestpractical.com sartak at bestpractical.com
Wed Apr 29 13:05:01 EDT 2009


The branch, master has been updated
       via  fc71357129df2ceea0bb18b904f494f6621ab524 (commit)
      from  04d1990b7159beef7c09aaab75cdfd53f3b8b288 (commit)

Summary of changes:
 lib/App/Changeloggr/Model/CommitLink.pm |    2 +-
 1 files changed, 1 insertions(+), 1 deletions(-)

- Log -----------------------------------------------------------------
commit fc71357129df2ceea0bb18b904f494f6621ab524
Author: Shawn M Moore <sartak at gmail.com>
Date:   Wed Apr 29 13:04:48 2009 -0400

    $0 is the entire match text

diff --git a/lib/App/Changeloggr/Model/CommitLink.pm b/lib/App/Changeloggr/Model/CommitLink.pm
index 1d54089..623491c 100644
--- a/lib/App/Changeloggr/Model/CommitLink.pm
+++ b/lib/App/Changeloggr/Model/CommitLink.pm
@@ -34,7 +34,7 @@ sub linkify {
     my $find = $self->find;
     $text =~ 
         s{($find)}{
-            my @matches = map {substr($text,$-[$_], $+[$_] - $-[$_])} 1..$#+;
+            my @matches = map {substr($text,$-[$_], $+[$_] - $-[$_])} 0..$#+;
             my $href = $self->href;
             $href =~ s{\$(\d+)}{$matches[$1]}eg;
             qq{<a href="$href">$matches[0]</a>}

-----------------------------------------------------------------------



More information about the Bps-public-commit mailing list