[svn:parrot] r29846 - trunk/t/doc

[infinoid@xxxxxxxxxxxx]

Author: infinoid
Date: Tue Jul 29 08:18:06 2008
New Revision: 29846

Modified:
   trunk/t/doc/pod.t

Log:
[t] Apply patch from donaldh++ to fix a test on cygwin.
(-e pbc_to_exe is true for pbc_to_exe.exe on cygwin, which confuses the test)


Modified: trunk/t/doc/pod.t
==============================================================================
--- trunk/t/doc/pod.t   (original)
+++ trunk/t/doc/pod.t   Tue Jul 29 08:18:06 2008
@@ -68,15 +68,14 @@
 foreach my $file (@files) {
     $file = "$build_dir/$file";
 
-    # skip missing MANIFEST.generated files
-    next unless -e $file;
+    # skip missing MANIFEST.generated files ( -e )
+    # skip binary files (including .pbc files) ( -B )
+    # skip files that pass the -e test because they resolve the .exe variant
+    next unless -T $file;
 
     # Skip the book, because it uses extended O'Reilly-specific POD
     next if $file =~ m{docs/book/};
 
-    # skip binary files (including .pbc files)
-    next if -B $file;
-
     # skip files without POD
     next unless Pod::Find::contains_pod( $file, 0 );