X-Git-Url: https://www.chiark.greenend.org.uk/ucgi/~yarrgweb/git?p=ypp-sc-tools.db-test.git;a=blobdiff_plain;f=pctb%2Fcommod-results-processor;h=3ea53be79f49b73a36b9be2f592a307a05b2833e;hp=cea64e5190318e437c5ad55ff6368cfe0f8a68ed;hb=d5514a07ad8470e0c00f158ef0a02ff6a90adb22;hpb=852f619ddd998ca771b37789d54be50e5670f193;ds=sidebyside diff --git a/pctb/commod-results-processor b/pctb/commod-results-processor index cea64e5..3ea53be 100755 --- a/pctb/commod-results-processor +++ b/pctb/commod-results-processor @@ -244,7 +244,7 @@ sub refresh_commodmap() { my $incommodmap=0; my $intag=''; my %got; - my $o= new IO::File "#commodmap#.tsv.new",'w' or die $!; + my $o= new IO::File "#commodmap#.tsv.tmp",'w' or die $!; undef %commodmap; my $xp= new XML::Parser @@ -292,7 +292,7 @@ sub refresh_commodmap() { # print STDERR "[[[$content]]]\n"; $xp->parse($content); close $o or die $!; - rename "#commodmap#.tsv.new","#commodmap#.tsv" or die $!; + rename "#commodmap#.tsv.tmp","#commodmap#.tsv" or die $!; } our %newcommods;