use
lib
'.'
;
use
lib
qw(t)
;
use
T;
my
$t
= T->new();
chdir
(
't'
);
$SIG
{__DIE__} = \
&Carp::confess
;
$main::TestLoad
= 0;
Apache::ASP->Loader(
'load.inc'
,
undef
,
Debug
=> 1,
Execute
=> 1);
$t
->eok(
$main::TestLoad
,
"failed to execute load.inc while loading"
);
my
$error_mark
;
{
local
*Apache::ASP::Warn
=
sub
{
my
$log_output
=
join
(
""
,
@_
);
if
(
$log_output
=~ /not_scoped_variable/is) {
$error_mark
=
$log_output
;
}
else
{
warn
(
@_
);
}
};
Apache::ASP->Loader(
'load_error.inc'
,
undef
,
Debug
=> 1,
UseStrict
=> 1);
}
$t
->eok(
$error_mark
,
"failed to catch compile error of load_error.inc while loading"
);
$t
->done;