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

[sartak at bestpractical.com]

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

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

- Log -----------------------------------------------------------------
commit bfe2879c439848f9588a56a0dec23f0109aa2ee2
Author: Shawn M Moore <sartak at gmail.com>
Date:   Wed Apr 29 13:06:50 2009 -0400

    Perl is weird!

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

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