Make target_index() return a list as the docs say

hinrik · Jul 2, 2009 · c7c1fe2 · c7c1fe2
1 parent 8ff5996
commit c7c1fe2
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/lib/App/Grok.pm b/lib/App/Grok.pm
@@ -31,7 +31,7 @@ sub run {
     $self->_get_options();
 
     if ($opt{index}) {
-        print $self->target_index();
+        print join("\n", $self->target_index()) . "\n";
         return;
     }
 
@@ -90,7 +90,7 @@ sub target_index {
     push @index, map { "S32-$_" } @sections;
 
     s/\.pod$// for @index;
-    return join("\n", @index) . "\n";
+    return @index;
 }
 
 sub detect_source {