minor update

This commit is contained in:
Troy Will 2009-07-10 08:19:38 +04:00
parent 5b39a297b9
commit 622a137e41
2 changed files with 9 additions and 2 deletions

View file

@ -46,8 +46,15 @@ sub stow_gnu_software {
my $sth2 = $dbh->prepare('SELECT directory, latest_tarball FROM latest_tarball WHERE gnu_software_id = ?'); my $sth2 = $dbh->prepare('SELECT directory, latest_tarball FROM latest_tarball WHERE gnu_software_id = ?');
$sth2->execute($software_id); $sth2->execute($software_id);
my ( $directory, $tarball ) = $sth2->fetchrow_array; my ( $directory, $tarball ) = $sth2->fetchrow_array;
sub download_tarball {
my ( $directory, $tarball ) = @_;
if ( $tarball ne 'OVERRIDE' ) {
my $download_command = "wget --no-clobber ${url}${directory}/$tarball"; my $download_command = "wget --no-clobber ${url}${directory}/$tarball";
} else {
my $download_command = "wget --no-clobber http://www.mpfr.org/mpfr-current/mpfr-2.4.1.tar.bz2";
}
system ("$download_command"); system ("$download_command");
}
system ("$tar_command $tarball"); system ("$tar_command $tarball");
chdir ("$software-$version"); chdir ("$software-$version");
open(OUT, ">stow-$software-$version"); open(OUT, ">stow-$software-$version");

BIN
experimental/gnu.db Normal file

Binary file not shown.