Update package.pl

This commit is contained in:
Dr!fter 2013-09-05 22:33:04 -04:00
parent e7ce1da1d0
commit 14aae4bf7f

View File

@ -50,7 +50,7 @@ chdir(Build::PathFormat('../../OUTPUT/package'));
my ($dirlist, $filename, $cmd); my ($dirlist, $filename, $cmd);
$dirlist = "addons"; $dirlist = "addons";
$filename = 'sdkhooks-' . $version; $filename = 'dhooks-' . $version;
if ($^O eq "linux") if ($^O eq "linux")
{ {
$filename .= '.tar.gz'; $filename .= '.tar.gz';
@ -65,7 +65,7 @@ else
print "$cmd\n"; print "$cmd\n";
system($cmd); system($cmd);
$ftp_path .= "/sdkhooks"; $ftp_path .= "/dhooks";
my ($major,$minor) = ($version =~ /^(\d+)\.(\d+)/); my ($major,$minor) = ($version =~ /^(\d+)\.(\d+)/);
$ftp_path .= "/$major.$minor"; $ftp_path .= "/$major.$minor";