| … | |
… | |
| 44 | |
44 | |
| 45 | # install a local warn handler to collect warnings |
45 | # install a local warn handler to collect warnings |
| 46 | my $warnings = ""; |
46 | my $warnings = ""; |
| 47 | if ($courseEnv->{pg}->{options}->{catchWarnings}) { |
47 | if ($courseEnv->{pg}->{options}->{catchWarnings}) { |
| 48 | local $SIG{__WARN__} = sub { $warnings .= shift }; |
48 | local $SIG{__WARN__} = sub { $warnings .= shift }; |
| 49 | } else { |
|
|
| 50 | $warnings = "WeBWorK::PG: PG warnings are not being caught. Check STDERR.\n"; |
|
|
| 51 | } |
49 | } |
| 52 | |
50 | |
| 53 | # create a Translator |
51 | # create a Translator |
| 54 | #warn "PG: creating a Translator\n"; |
52 | #warn "PG: creating a Translator\n"; |
| 55 | my $translator = WeBWorK::PG::Translator->new; |
53 | my $translator = WeBWorK::PG::Translator->new; |