epita-std/ACU
Archived
1
0
Fork 0
Code Releases Activity

Display warnings on process return

Browse source
This commit is contained in:
Mercier Pierre-Olivier 2013-11-13 01:01:04 +01:00
commit 4e35cabf62
2 changed files with 5 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

4
ACU/Process.pm
View file

@ -62,7 +62,10 @@ sub do_work ($$$@)
my $sax_handler = ProcessHandler->new($args);
my $parser = XML::SAX::ParserFactory->parser( Handler => $sax_handler );
my $ret;
eval {
$SIG{'__WARN__'} = sub { log WARN, $_[0]; $ret .= ">>> ".$_[0]."\n"; };
$parser->parse_string(${ $_[0]{argref} });
};
if ($@) {
@ -71,7 +74,6 @@ sub do_work ($$$@)
return $err;
}
my $ret;
eval {
$ret = $subref->($given_args, $args);
};