Alter the merged upgrade script to accept the merged upgrade package.

This commit is contained in:
Colin Kuskie 2011-08-16 16:32:03 -07:00
parent 5ef5267110
commit 52cfc73033

View file

@ -554,18 +554,8 @@ sub finish {
#------------------------------------------------- #-------------------------------------------------
sub updateTemplates { sub updateTemplates {
my $session = shift; my $session = shift;
return undef unless (-d "packages-".$toVersion);
print "\tUpdating packages.\n" unless ($quiet); print "\tUpdating packages.\n" unless ($quiet);
opendir(DIR,"packages-".$toVersion); addPackage( $session, 'packages-7.9.34-7.10.22/merged.wgpkg' );
my @files = readdir(DIR);
closedir(DIR);
my $newFolder = undef;
foreach my $file (@files) {
next unless ($file =~ /\.wgpkg$/);
# Fix the filename to include a path
$file = "packages-" . $toVersion . "/" . $file;
addPackage( $session, $file );
}
} }
#vim:ft=perl #vim:ft=perl