From 4b66b2a1eb8b919480eb87827a7215fcb359b7d0 Mon Sep 17 00:00:00 2001 From: minima Date: Mon, 14 Oct 2002 00:01:35 +0000 Subject: [PATCH] complete unconpression --- perl/USDB.pm | 15 +++------------ 1 file changed, 3 insertions(+), 12 deletions(-) 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; -- 2.43.0