bliper

static html page generation in perl
git clone git://git.2f30.org/bliper
Log | Files | Refs | README | LICENSE

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:
Mbin/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;