From: minima Date: Mon, 14 Oct 2002 00:01:35 +0000 (+0000) Subject: complete unconpression X-Git-Tag: PRE-1-52~149 X-Git-Url: http://dxcluster.org/gitweb/gitweb.cgi?a=commitdiff_plain;h=4b66b2a1eb8b919480eb87827a7215fcb359b7d0;p=spider.git complete unconpression --- diff --git a/perl/USDB.pm b/perl/USDB.pm index c12247a3..d5ac1d8a 100644 --- a/perl/USDB.pm +++ b/perl/USDB.pm @@ -102,20 +102,11 @@ sub load # now write away all the files for (@_) { - my $fn = shift; - my $if = gzopen($fn, "r") or return "Cannot open $fn $!"; - my $ofn = "$fn.upk"; - my $of = new IO::File "+>$ofn" or return "Cannot read $ofn $!"; - my ($l, $buf); - while ($l = $if->gzread($buf)) { - $of->write($buf, $l); - } - $if->gzclose; - $of->close; - $of = new IO::File "$ofn" or return "Cannot read $ofn $!"; + my $ofn = shift; + my $of = new IO::File "$ofn" or return "Cannot read $ofn $!"; while (<$of>) { - $l = $_; + my $l = $_; $l =~ s/[\r\n]+$//; my ($call, $city, $state) = split /\|/, $l;