0ct0pu5/wesnoth
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

I added a couple of undef's to webtgz.pl to allow for memory to be released

Browse source 
(though I am not sure perl really will give any back to the OS) before doing
the copy of the cached file, as that step doesn't need the undef'd data and
can take a while to run.
This commit is contained in:
Bruno Wolff III 2005-10-14 18:16:42 +00:00
parent 51d753cd16
commit b9d0343dc5
2 changed files with 5 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
changelog
View file

@ -62,6 +62,8 @@ SVN trunk:
* because the heuristic for determining translations will sometimes give
duplicates, I changed the web page to remove duplicate languages
* I fixed a bug in how the language list was sorted on the web page
* Updated webtgz.pl to do a couple of undefines before starting the copy of
the cached campaign, to give perl a chance to release some memory.
* fix untranslated unit create dialog (#4424)
* random map generator now uses island_size (#4458)
* various bug fixes and code cleanups

3
utils/webtgz.pl
View file

@ -159,6 +159,7 @@ foreach my $campaign (@campaigns) {
last;
}
}
undef @campaigns;
if (!defined($version)) {
unlink("version/$name.ver");
unlink("tgz/$name.tgz");
@ -277,6 +278,8 @@ name=\"$name\"
rename "tgz/$name.$$", "tgz/$name.tgz";
rename "version/$name.$$", "version/$name.ver";
rename "timestamp/$name.$$", "timestamp/$name.ver";
undef $archive;
undef $response;
}
if (!open(TGZ, "<tgz/$name.tgz")) {