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,
