I *think* that this comment is out of date.
parent
d65b39fdcb
commit
c3eec7fdf0
|
@ -168,8 +168,6 @@ sub savestate () { #{{{
|
||||||
eval q{use HTML::Entities};
|
eval q{use HTML::Entities};
|
||||||
error($@) if $@;
|
error($@) if $@;
|
||||||
my $newfile="$config{wikistatedir}/aggregate.new";
|
my $newfile="$config{wikistatedir}/aggregate.new";
|
||||||
# TODO: This cleanup function could use improvement. Any newly
|
|
||||||
# aggregated files are left behind unrecorded, and should be deleted.
|
|
||||||
my $cleanup = sub { unlink($newfile) };
|
my $cleanup = sub { unlink($newfile) };
|
||||||
open (OUT, ">$newfile") || error("open $newfile: $!", $cleanup);
|
open (OUT, ">$newfile") || error("open $newfile: $!", $cleanup);
|
||||||
foreach my $data (values %feeds, values %guids) {
|
foreach my $data (values %feeds, values %guids) {
|
||||||
|
|
Loading…
Reference in New Issue