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

Author: dagolden
Date: Fri Jun 26 02:38:08 2009
New Revision: 12903

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

Log:
don't do utf8 on perl 5.6

Modified: Module-Build/trunk/Changes
==============================================================================
--- Module-Build/trunk/Changes	(original)
+++ Module-Build/trunk/Changes	Fri Jun 26 02:38:08 2009
@@ -2,10 +2,14 @@
 
 0.33_04 - 
 
+ Bug-fixes:
+ - Don't try utf8 YAML I/O on Perl 5.6
+
  Other
  - skips xs.t and ppm.t when perl was not compiled with dynamic loading
    since Module::Buld does not support static linking (RT#46178) 
    [David Golden]
+ - Added YAML utf8 patch in 0.33_03 changes list
  - Added attribution for patches in 0.33_03 changes list
 
 0.33_03 - Mon Jun 22 17:22:56 EDT 2009
@@ -37,6 +41,7 @@
  - Added a can_action($name) method (RT#45172) [brian d foy] 
  - Documented that subclass methods should not permanently change
    current directory (RT#46919) [David Wheeler]
+ - META.yml encoded in UTF-8 (RT#43765) [Olivier Mengue]
 
 0.33_02 - Mon Jun 15 12:23:55 EDT 2009
 

Modified: Module-Build/trunk/lib/Module/Build/YAML.pm
==============================================================================
--- Module-Build/trunk/lib/Module/Build/YAML.pm	(original)
+++ Module-Build/trunk/lib/Module/Build/YAML.pm	Fri Jun 26 02:38:08 2009
@@ -40,7 +40,7 @@
     }
     open my $OUT, "$mode $filename"
       or die "Can't open $filename for writing: $!";
-    binmode($OUT, ':utf8');
+    binmode($OUT, ':utf8') if $] >= 5.008;
     print $OUT Dump(@_);
     close $OUT;
 }
@@ -51,7 +51,7 @@
     my $filename = shift;
     open my $IN, $filename
       or die "Can't open $filename for reading: $!";
-    binmode($IN, ':utf8');
+    binmode($IN, ':utf8') if $] >= 5.008;
     return Load(do { local $/; <$IN> });
     close $IN;
 }