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

[email protected] Wed, 19 Aug 2009 05:09:02 -0700 (PDT)
Newsgroups perl.module.build.checkins
Message-ID <[email protected]>
Author: dagolden
Date: Wed Aug 19 05:09:01 2009
New Revision: 13206

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

Log:
Generate .ppm with :utf8

Modified: Module-Build/trunk/Changes
==============================================================================
--- Module-Build/trunk/Changes	(original)
+++ Module-Build/trunk/Changes	Wed Aug 19 05:09:01 2009
@@ -4,6 +4,7 @@
 
  Bug fixes:
  - Multiple test fixes for OS2 [Ilya Zakharevich]
+ - Generated.ppd files use :utf8 if possible (RT#48827) [Olivier Mengue]
 
 0.34_05 - Sun Aug  9 22:31:37 EDT 2009
 

Modified: Module-Build/trunk/lib/Module/Build/PPMMaker.pm
==============================================================================
--- Module-Build/trunk/lib/Module/Build/PPMMaker.pm	(original)
+++ Module-Build/trunk/lib/Module/Build/PPMMaker.pm	Wed Aug 19 05:09:01 2009
@@ -113,6 +113,7 @@
   my $ppd_file = "$dist{name}.ppd";
   my $fh = IO::File->new(">$ppd_file")
     or die "Cannot write to $ppd_file: $!";
+  $fh->binmode(":utf8") if $fh->can("binmode");
   print $fh $ppd;
   close $fh;