bliper

commit 09127bb03d417a2a80c38011433257fe95596302
parent 6e1acf9fff1f2738b8fe93e887e0a770da7aa9a2
Author: cipher <haris@2f30.org>
Date:   Sun, 11 May 2014 14:55:54 +0300

Do not open file everytime in loop.

Diffstat:
M
bin/bliper-blog.pl
 | 
2
+-

1 file changed, 1 insertion(+), 1 deletion(-)
diff --git a/bin/bliper-blog.pl b/bin/bliper-blog.pl
@@ -20,8 +20,8 @@ if ($count gt 0) {
 	chdir($articledir) or die "Can't change dir to $articledir $!\n";
 	my @files = <*>;
 	@files = reverse @files;
+	open (OUT, '>>', "../pages/blog") or die "Could not open blog file $!\n";
 	foreach my $file (@files) {
-		open (OUT, '>>', "../pages/blog") or die "Could not open blog file $!\n";
 		print OUT "[$file]($file.html)<br>";
 	}
 	close OUT;