[svn:Module-Build] r13211 - in Module-Build/trunk: . lib/Module/Build

[dagolden]

Author: dagolden
Date: Wed Aug 19 12:42:49 2009
New Revision: 13211

Modified:
   Module-Build/trunk/Changes
   Module-Build/trunk/lib/Module/Build/Base.pm

Log:
Don't let Pod::Man cause a crash on vfat on unix



Modified: Module-Build/trunk/Changes
==============================================================================
--- Module-Build/trunk/Changes  (original)
+++ Module-Build/trunk/Changes  Wed Aug 19 12:42:49 2009
@@ -6,6 +6,8 @@
  - Multiple test fixes for OS2 [Ilya Zakharevich]
  - Generated.ppd files use :utf8 if possible (RT#48827) [Olivier Mengue]
  - Fixed preservation of custom install_paths on resume (RT#41166)
+ - Warn instead of crashing when Pod::Man tries to create files with
+   colons on vfat partitions on unix (RT#45544) [David Golden]
 
 0.34_05 - Sun Aug  9 22:31:37 EDT 2009
 

Modified: Module-Build/trunk/lib/Module/Build/Base.pm
==============================================================================
--- Module-Build/trunk/lib/Module/Build/Base.pm (original)
+++ Module-Build/trunk/lib/Module/Build/Base.pm Wed Aug 19 12:42:49 2009
@@ -2739,7 +2739,8 @@
     my $outfile = File::Spec->catfile($mandir, $manpage);
     next if $self->up_to_date( $file, $outfile );
     $self->log_info("Manifying $file -> $outfile\n");
-    $parser->parse_from_file( $file, $outfile );
+    eval { $parser->parse_from_file( $file, $outfile ); 1 }
+      or $self->log_warn("Error creating '$outfile': $...@\n"); 
     $files->{$file} = $outfile;
   }
 }
@@ -2763,7 +2764,8 @@
     my $outfile = File::Spec->catfile( $mandir, $manpage);
     next if $self->up_to_date( $file, $outfile );
     $self->log_info("Manifying $file -> $outfile\n");
-    $parser->parse_from_file( $file, $outfile );
+    eval { $parser->parse_from_file( $file, $outfile ); 1 }
+      or $self->log_warn("Error creating '$outfile': $...@\n"); 
     $files->{$file} = $outfile;
   }
 }