| … | |
… | |
| 56 | # ## ATTENTION: The handlers PG_floating_point_exception_handler and PG_warnings_handler |
56 | # ## ATTENTION: The handlers PG_floating_point_exception_handler and PG_warnings_handler |
| 57 | # ## have to be installed after CGI::Carp is called since it also |
57 | # ## have to be installed after CGI::Carp is called since it also |
| 58 | # ## modifes the die and warn labels. Finding the right warning mechanism using these two |
58 | # ## modifes the die and warn labels. Finding the right warning mechanism using these two |
| 59 | # ## methods bears further investigation |
59 | # ## methods bears further investigation |
| 60 | # ## They are defined in Global.pm |
60 | # ## They are defined in Global.pm |
| 61 | $SIG{'FPE'} = \&PG_floating_point_exception_handler; |
61 | $SIG{'FPE'} = \&Global::PG_floating_point_exception_handler; |
| 62 | $SIG{__WARN__}=\&PG_warnings_handler; |
62 | $SIG{__WARN__}=\&Global::PG_warnings_handler; |
| 63 | |
63 | |
| 64 | alarm($main::TIME_OUT_CONSTANT); |
64 | alarm($main::TIME_OUT_CONSTANT); |
| 65 | |
65 | |
| 66 | }; |
66 | }; |
| 67 | |
67 | |