needs to be a hash reference

This commit is contained in:
snow flurry 2022-03-04 19:36:08 -08:00
parent df18376192
commit 00b4931cbb

View file

@ -164,7 +164,7 @@ foreach my $post (@posts) {
print " Processing $post->{fname}...\n"; print " Processing $post->{fname}...\n";
my %post_hash = %utils; my %post_hash = %utils;
$post_hash{post} = \$post; $post_hash{post} = \$post;
my $post_content = $post_tmpl->fill_in(HASH => %post_hash); my $post_content = $post_tmpl->fill_in(HASH => \%post_hash);
if (defined($post_content)) { if (defined($post_content)) {
open(POSTOUT, '>', "$postout_path/$post->{fname}.html") or die("Unable to write $post->{fname}.html: $!"); open(POSTOUT, '>', "$postout_path/$post->{fname}.html") or die("Unable to write $post->{fname}.html: $!");
print POSTOUT $post_content; print POSTOUT $post_content;
@ -181,7 +181,7 @@ foreach my $pg (@pages) {
print " Processing $pg->{fname}...\n"; print " Processing $pg->{fname}...\n";
my %page_hash = %utils; my %page_hash = %utils;
$page_hash{posts} = \@posts; $page_hash{posts} = \@posts;
my $page_content = $pg->{tmpl}->fill_in(HASH => %page_hash); my $page_content = $pg->{tmpl}->fill_in(HASH => \%page_hash);
if (defined($page_content)) { if (defined($page_content)) {
open(PGOUT, '>', "$out_path/$pg->{fname}") or die("Unable to write $pg->{fname}: $!"); open(PGOUT, '>', "$out_path/$pg->{fname}") or die("Unable to write $pg->{fname}: $!");
print PGOUT $page_content; print PGOUT $page_content;