Return-Path: Delivered-To: apmail-perl-modperl-cvs-archive@www.apache.org Received: (qmail 60107 invoked from network); 3 May 2004 12:54:09 -0000 Received: from daedalus.apache.org (HELO mail.apache.org) (208.185.179.12) by minotaur-2.apache.org with SMTP; 3 May 2004 12:54:09 -0000 Received: (qmail 79051 invoked by uid 500); 3 May 2004 12:54:06 -0000 Delivered-To: apmail-perl-modperl-cvs-archive@perl.apache.org Received: (qmail 78979 invoked by uid 500); 3 May 2004 12:54:06 -0000 Mailing-List: contact modperl-cvs-help@perl.apache.org; run by ezmlm Precedence: bulk list-help: list-unsubscribe: list-post: Reply-To: dev@perl.apache.org Delivered-To: mailing list modperl-cvs@perl.apache.org Received: (qmail 78964 invoked by uid 500); 3 May 2004 12:54:06 -0000 Delivered-To: apmail-modperl-2.0-cvs@apache.org Date: 3 May 2004 12:54:08 -0000 Message-ID: <20040503125408.60091.qmail@minotaur.apache.org> From: geoff@apache.org To: modperl-2.0-cvs@apache.org Subject: cvs commit: modperl-2.0/t/response/TestAPR finfo.pm X-Spam-Rating: daedalus.apache.org 1.6.2 0/1000/N X-Spam-Rating: minotaur-2.apache.org 1.6.2 0/1000/N geoff 2004/05/03 05:54:08 Modified: t/response/TestAPR finfo.pm Log: finfo.fname works on win32 as of 2.0.49 Revision Changes Path 1.10 +5 -3 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.9 retrieving revision 1.10 diff -u -r1.9 -r1.10 --- finfo.pm 15 Apr 2004 13:00:24 -0000 1.9 +++ finfo.pm 3 May 2004 12:54:08 -0000 1.10 @@ -10,6 +10,8 @@ use constant WIN32 => Apache::TestConfig::WIN32; use constant OSX => Apache::TestConfig::OSX; +use constant APACHE_2_0_49 => have_apache_version('2.0.49'); + use Apache::RequestRec (); use APR::Finfo (); use APR::Const -compile => qw(SUCCESS FINFO_NORM REG @@ -107,9 +109,9 @@ # tests for stuff not in perl's stat { - # XXX r->finfo->fname requires on Win32 a patched cvs apr - if (WIN32) { - skip "finfo.fname not available yet on Win32", 0; + # BACK_COMPAT_MARKER - fixed as of 2.0.49. + if (WIN32 && !APACHE_2_0_49) { + skip "finfo.fname requires Apache 2.0.49 or later", 0; } else { ok t_cmp($file,