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

sartak at bestpractical.com sartak at bestpractical.com
Thu Mar 26 18:17:02 EDT 2009


The branch, master has been updated
       via  ac5c580937155e05b14917f88cd607eb9c951c4e (commit)
      from  40f077c0c23c36563f47bc35b598769b8611d578 (commit)

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

- Log -----------------------------------------------------------------
commit ac5c580937155e05b14917f88cd607eb9c951c4e
Author: Shawn M Moore <sartak at gmail.com>
Date:   Thu Mar 26 18:16:52 2009 -0400

    Always return text, if they want count they can use $changes->count

diff --git a/lib/App/Changeloggr/Model/ChangesCollection.pm b/lib/App/Changeloggr/Model/ChangesCollection.pm
index 5c3ec21..5bb182b 100644
--- a/lib/App/Changeloggr/Model/ChangesCollection.pm
+++ b/lib/App/Changeloggr/Model/ChangesCollection.pm
@@ -13,7 +13,6 @@ sub create_from_text {
 
     my $text      = $args{text};
     my $changelog = $args{changelog};
-    my $count     = 0;
 
     while (length $text) {
         my $change = App::Changeloggr::Model::Change->new;
@@ -24,10 +23,9 @@ sub create_from_text {
 
         last if !defined($newtext);
         $text = $newtext;
-        ++$count;
     }
 
-    return wantarray ? ($count, $text) : $text;
+    return $text;
 }
 
 1;

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



More information about the Bps-public-commit mailing list