Alter the merged upgrade script to accept the merged upgrade package.
This commit is contained in:
parent
5ef5267110
commit
52cfc73033
1 changed files with 1 additions and 11 deletions
|
|
@ -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
|
||||||
|
|
|
||||||
Loading…
Add table
Add a link
Reference in a new issue