From: Mike G. v. a. <we...@ma...> - 2010-06-04 00:39:57
|
Log Message: ----------- Adjusted warnings handle PGcore object Modified Files: -------------- webwork2/lib/WeBWorK/PG: Local.pm Revision Data ------------- Index: Local.pm =================================================================== RCS file: /webwork/cvs/system/webwork2/lib/WeBWorK/PG/Local.pm,v retrieving revision 1.29 retrieving revision 1.30 diff -Llib/WeBWorK/PG/Local.pm -Llib/WeBWorK/PG/Local.pm -u -r1.29 -r1.30 --- lib/WeBWorK/PG/Local.pm +++ lib/WeBWorK/PG/Local.pm @@ -97,8 +97,8 @@ # install a local warn handler to collect warnings my $warnings = ""; - local $SIG{__WARN__} = sub { $warnings .= shift } - if $ce->{pg}->{options}->{catchWarnings}; + local $SIG{__WARN__} = sub { $warnings .= shift }; + #if $ce->{pg}->{options}->{catchWarnings}; # create a Translator #warn "PG: creating a Translator\n"; @@ -326,8 +326,9 @@ result => {}, state => {}, errors => "Failed to read the problem source file.", - warnings => $warnings, + warnings => "$warnings", flags => {error_flag => 1}, + pgcore => $translator->{rh_pgcore}, }, $class; } @@ -435,6 +436,7 @@ errors => $translator->errors, warnings => $warnings, flags => $translator->rh_flags, + pgcore => $translator->{rh_pgcore}, }, $class; } |