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,