| Subject: | t/05dsml,t fails on Win32 due to the lack of "binmode" |
Hi. t/05dsml,t of perl-ldap-0.38 fails on Win32 due to the lack of
"binmode". The attached patch would fix the issue. Thanks.
Kenichi Ishigaki
| Subject: | perl-ldap-0.38.patch |
diff -ur perl-ldap-0.38/t/05dsml.t perl-ldap-0.38-patched/t/05dsml.t
--- perl-ldap-0.38/t/05dsml.t Sun Sep 21 23:23:47 2008
+++ perl-ldap-0.38-patched/t/05dsml.t Tue Oct 14 00:05:42 2008
@@ -28,7 +28,7 @@
@entry = $ldif->read;
open(FH,">$outfile1");
-
+binmode FH;
my $dsml = Net::LDAP::DSML->new(output => \*FH,pretty_print => 1);
$dsml->write_entry($_) for @entry;
@@ -40,6 +40,7 @@
# (don't rely on unpatched XML::SAX::Writer [e.g. Debian])
{
open(FH, "+<$outfile1");
+binmode FH;
local $/; # slurp mode
my $txt = <FH>;