From 64c96ab80e375692d43e0cf4b32c22448202c2db Mon Sep 17 00:00:00 2001
From: Angel Ortega <angel@triptico.com>
Date: Wed, 8 Feb 2012 13:15:03 +0100
Subject: [PATCH] Avoid warning when splitting tags.

---
 Gruta/Source/FS.pm | 23 ++++++++++++-----------
 1 file changed, 12 insertions(+), 11 deletions(-)

diff --git a/Gruta/Source/FS.pm b/Gruta/Source/FS.pm
index b491a15..ad2abb7 100644
--- a/Gruta/Source/FS.pm
+++ b/Gruta/Source/FS.pm
@@ -1076,19 +1076,20 @@ sub _collect_tags {
 
 		my @ls = glob($files);
 
-		foreach my $f (@ls) {
-			if (open F, $f) {
-				my $tags = <F>;
-				chomp $tags;
-				close F;
+        foreach my $f (@ls) {
+            if (open F, $f) {
+                if (my $tags = <F>) {
+                    chomp $tags;
+                    close F;
 
-				my ($id) = ($f =~ m{/([^/]+)\.T});
+                    my ($id) = ($f =~ m{/([^/]+)\.T});
 
-				push(@ret,
-					[ $topic_id, $id, [ split(/\s*,\s*/, $tags) ] ]
-				);
-			}
-		}
+                    push(@ret,
+                        [ $topic_id, $id, [ split(/\s*,\s*/, $tags) ] ]
+                    );
+                }
+            }
+        }
 	}
 
 	return @ret;
-- 
2.11.4.GIT