From 1c7b9933d1191049e49232194070f01882561a1f Mon Sep 17 00:00:00 2001
From: matteo <matteo.pasotti@gmail.com>
Date: Sat, 20 Sep 2014 17:35:05 +0300
Subject: fixed sub apcat (return conditioned by the context); drop some
 comment

---
 lib/AdminPanel/Shared.pm | 21 +++++----------------
 1 file changed, 5 insertions(+), 16 deletions(-)

(limited to 'lib')

diff --git a/lib/AdminPanel/Shared.pm b/lib/AdminPanel/Shared.pm
index 3165bf04..b6c8fe15 100644
--- a/lib/AdminPanel/Shared.pm
+++ b/lib/AdminPanel/Shared.pm
@@ -112,7 +112,8 @@ $filename the name of the file to read
 
 =head3 OUTPUT
 
-$content the content of the selected text file inside
+depending from the context it returns the content 
+of the file as an array or a string
 
 =head3 DESCRIPTION
 
@@ -123,28 +124,16 @@ if it fails
 
 #=============================================================
 
-#sub apcat {
-#    my $fn = shift();
-#    my $fh = undef;
-#    my @content = ();
-#    open($fh, "<", $fn) || return 0;
-#    while(<$fh>)
-#    {
-#        push(@content,$_);
-#    }
-#    return \@content;
-#}
-
 sub apcat {
     my $fn = shift();
     my $fh = undef;
-    my $content = undef;
+    my @content = ();
     open($fh, "<", $fn) || return 0;
     while(<$fh>)
     {
-        $content .= $_;
+        push(@content, $_);
     }
-    return $content;
+    return (wantarray() ? @content : join('',@content));
 }
 
 
-- 
cgit v1.2.1