geoff 2003/12/01 11:16:51
Modified: t/response/TestAPR finfo.pm
Log:
use the more idiomatic object method $r->finfo->stat() form, rather than
passing the APR::Finfo object as the first argument to a function
Revision Changes Path
1.6 +1 -2 modperl-2.0/t/response/TestAPR/finfo.pm
Index: finfo.pm
===================================================================
RCS file: /home/cvs/modperl-2.0/t/response/TestAPR/finfo.pm,v
retrieving revision 1.5
retrieving revision 1.6
diff -u -r1.5 -r1.6
--- finfo.pm 22 Nov 2003 21:59:21 -0000 1.5
+++ finfo.pm 1 Dec 2003 19:16:51 -0000 1.6
@@ -45,8 +45,7 @@
# stat tests
{
# populate the finfo struct first
- my $status = APR::Finfo::stat($r->finfo, $file,
- APR::FINFO_NORM, $r->pool);
+ my $status = $r->finfo->stat($file, APR::FINFO_NORM, $r->pool);
ok t_cmp(APR::SUCCESS,
$status,
