Really write to tags file and close fh

[grml-tips.git] / grml-tips-tags

diff --git a/grml-tips-tags b/grml-tips-tags
index 1bb3920..3b27469 100755 (executable)
--- a/grml-tips-tags
+++ b/grml-tips-tags
@@ -28,4 +28,5 @@ while (my $line = <$fh>) {
 my %seen = ();
 @tags = grep { ! $seen{$_} ++ } @tags;
 
-print join("\n", @tags) . "\n";
+print $fh join("\n", @tags) . "\n";
+close($fh)