oqapi/webgui
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

get upgrade.pl to fail properly if upgrade script dies

Browse source
This commit is contained in:
Graham Knop 2008-09-30 22:42:07 +00:00
parent dec515d1cf
commit 38c42d01fd
1 changed files with 7 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

9
sbin/upgrade.pl
View file

@ -228,9 +228,14 @@ foreach my $filename (keys %config) {
if ($upgrade{$upgrade}{pl} ne "") {
my $pid = fork;
if (!$pid) {
@ARGV = ("--configFile=$filename", $quiet ? ('--quiet') : ());
$0 = $upgrade{$upgrade}{pl};
local @ARGV = ("--configFile=$filename", $quiet ? ('--quiet') : ());
local $0 = $upgrade{$upgrade}{pl};
local $@;
do $0;
if ($@) {
warn $@;
exit 255;
};
exit;
}
waitpid $pid, 0;