From 2dab2cc13c97faef9e98675f369062fe31fb47d6 Mon Sep 17 00:00:00 2001
From: Steve Hay <SteveHay@planit.com>
Date: Fri, 7 Nov 2008 08:49:25 +0000
Subject: Fix new test (just added by podlators upgrade) on Win32, at least

p4raw-id: //depot/perl@34759
---
 lib/Pod/Text.pm           | 2 +-
 lib/Pod/t/text-encoding.t | 1 +
 2 files changed, 2 insertions(+), 1 deletion(-)

diff --git a/lib/Pod/Text.pm b/lib/Pod/Text.pm
index f363303869..fa1fd57263 100644
--- a/lib/Pod/Text.pm
+++ b/lib/Pod/Text.pm
@@ -37,7 +37,7 @@ use Pod::Simple ();
 # We have to export pod2text for backward compatibility.
 @EXPORT = qw(pod2text);
 
-$VERSION = '3.12';
+$VERSION = '3.12_01';
 
 ##############################################################################
 # Initialization
diff --git a/lib/Pod/t/text-encoding.t b/lib/Pod/t/text-encoding.t
index 2d624808bf..c803cff1f9 100644
--- a/lib/Pod/t/text-encoding.t
+++ b/lib/Pod/t/text-encoding.t
@@ -53,6 +53,7 @@ while (<DATA>) {
     }
     close TMP;
     open (OUT, '> out.tmp') or die "Cannot create out.tmp: $!\n";
+    eval { binmode (\*OUT, ':raw') };
     $parser->parse_from_file ('tmp.pod', \*OUT);
     close OUT;
     open (TMP, 'out.tmp') or die "Cannot open out.tmp: $!\n";
-- 
cgit v1.2.1