In packaging, use API for gunzip instead of executable (bug 6415).

This commit is contained in:
Nicholas Hastings 2015-09-18 08:27:28 -04:00
parent c982cc9991
commit c085444a03

View File

@ -5,6 +5,7 @@ use Cwd;
use File::Basename; use File::Basename;
use File::stat; use File::stat;
use Net::FTP; use Net::FTP;
use IO::Uncompress::Gunzip qw(gunzip $GunzipError) ;
use Time::localtime; use Time::localtime;
my ($ftp_file, $ftp_host, $ftp_user, $ftp_pass, $ftp_path, $tag); my ($ftp_file, $ftp_host, $ftp_user, $ftp_pass, $ftp_path, $tag);
@ -78,8 +79,12 @@ else
print "Reusing existing GeoIP.dat\n"; print "Reusing existing GeoIP.dat\n";
} }
system('gunzip -c ../GeoIP.dat.gz > addons/sourcemod/configs/geoip/GeoIP.dat'); my $geoIPfile = 'addons/sourcemod/configs/geoip/GeoIP.dat';
if (-e $geoIPfile) {
unlink($geoIPfile);
}
gunzip '../GeoIP.dat.gz' => $geoIPfile
or die "gunzip failed: $GunzipError\n";
my ($version); my ($version);