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;
}
