X-Git-Url: http://gb7djk.dxcluster.net/gitweb/gitweb.cgi?a=blobdiff_plain;f=perl%2FDXCIDR.pm;fp=perl%2FDXCIDR.pm;h=5a6272aa4747e0c813b96431b5932b5df22f1516;hb=cbbf83baa54e859c382de79954607923cbb1b653;hp=fdade7fc8989bae6d17fad741ff636604c0d2938;hpb=6265d260cdd7c96e29aeb5b7b8fb4ea4d5326cff;p=spider.git

diff --git a/perl/DXCIDR.pm b/perl/DXCIDR.pm
index fdade7fc..5a6272aa 100644
--- a/perl/DXCIDR.pm
+++ b/perl/DXCIDR.pm
@@ -88,14 +88,13 @@ sub append
 	
 	if ($suffix) {
 		my $fn = _fn() . ".$suffix";
-		my $r = rand;
-		my $fh = IO::File->new (">>$fn.$r");
-		if ($fh) {
+		my $fh = IO::File->new;
+		if ($fh->open("$fn", "a+")) {
+			$fh->seek(0, 2);  	# belt and braces !!
 			print $fh "$_\n" for @in;
 			$fh->close;
-			move "$fn.$r", $fn;
 		} else {
-			LogDbg('err', "DXCIDR::append error appending to $fn.$r $!");
+			LogDbg('err', "DXCIDR::append error appending to $fn $!");
 		}
 	} else {
 		LogDbg('err', "DXCIDR::append require badip suffix");