stas 2004/05/24 11:38:39
Modified: t/response/TestAPR pool.pm
Log:
no more need for warnings
Revision Changes Path
1.14 +0 -2 modperl-2.0/t/response/TestAPR/pool.pm
Index: pool.pm
===================================================================
RCS file: /home/cvs/modperl-2.0/t/response/TestAPR/pool.pm,v
retrieving revision 1.13
retrieving revision 1.14
diff -u -u -r1.13 -r1.14
--- pool.pm 24 May 2004 18:38:16 -0000 1.13
+++ pool.pm 24 May 2004 18:38:39 -0000 1.14
@@ -375,7 +375,6 @@
# undefined cleanup subs
{
my $p = APR::Pool->new;
- t_server_log_error_is_expected();
$p->cleanup_register('TestAPR::pool::some_non_existing_sub', 1);
eval { $p->destroy };
ok t_cmp(qr/Undefined subroutine/,
@@ -384,7 +383,6 @@
}
{
my $p = APR::Pool->new;
- t_server_log_error_is_expected();
$p->cleanup_register(\&non_existing1, 1);
eval { $p->destroy };
ok t_cmp(qr/Undefined subroutine/,
