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

don't fork for upgrade files

Browse source
This commit is contained in:
Graham Knop 2010-03-19 10:38:46 -05:00
parent 11d4cd0ef0
commit fb6a78d39d
1 changed files with 15 additions and 20 deletions
Download patch file Download diff file Expand all files Collapse all files

35
lib/WebGUI/Upgrade/File/pl.pm
View file

@ -4,6 +4,7 @@ use strict;
use warnings;
use WebGUI::Upgrade;
use POSIX ();
sub _runCode {
eval sprintf <<'END_CODE', $_[0], $_[1];
@ -30,28 +31,22 @@ sub run {
my $class = shift;
($configFile, $version, $file, $quiet) = @_;
($session, $config, $dbh, $versionTag) = undef;
my $pid = fork;
if (! $pid) {
open my $fh, '<', $file;
my $contents = do { local $/; <$fh> };
close $fh;
_runCode($file, $contents);
if ($session) {
require WebGUI::VersionTag;
if (WebGUI::VersionTag->getWorking($session, 'nocreate')) {
version_tag()->commit;
}
$session->var->end;
$session->close;
open my $fh, '<', $file;
my $contents = do { local $/; <$fh> };
close $fh;
_runCode($file, $contents);
my $error = $@;
if ($session) {
require WebGUI::VersionTag;
if (WebGUI::VersionTag->getWorking($session, 'nocreate')) {
version_tag()->commit;
}
die $@
if $@;
exit;
}
waitpid $pid, 0;
if ($?) {
die "Error processing $file\n";
$session->var->end;
$session->close;
}
die $error
if $error;
return 1;
}
sub report {