From: Nick Ing-Simmons <nik@tiuk.ti.com>
Date: Mon, 4 Mar 2002 16:19:06 +0000 (+0000)
Subject: Win32 tweak
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=330f1a50c5d35c91987f1aef437dcb98bb1db640;p=p5sagit%2Fp5-mst-13.2.git

Win32 tweak

p4raw-id: //depot/perlio@15002
---

diff --git a/lib/Tie/File/t/16_handle.t b/lib/Tie/File/t/16_handle.t
index a438612..5ff3c82 100644
--- a/lib/Tie/File/t/16_handle.t
+++ b/lib/Tie/File/t/16_handle.t
@@ -14,6 +14,7 @@ print "ok $N\n"; $N++;
 use Fcntl 'O_CREAT', 'O_RDWR';
 sysopen F, $file, O_CREAT | O_RDWR 
   or die "Couldn't create temp file $file: $!; aborting";
+binmode(F);
 
 my $o = tie @a, 'Tie::File', \*F;
 print $o ? "ok $N\n" : "not ok $N\n";
@@ -82,7 +83,7 @@ untie @a;
    if ($@ && $@ =~ /filehandle does not appear to be seekable/) {
      print "ok $N\n";
    } else {
-     print "not ok $N\n";
+     print "not ok $N # $@\n";
    }
    $N++;
 }