diff options
| author | Jarkko Hietaniemi <jhi@iki.fi> | 2002-03-04 17:11:19 +0000 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2002-03-04 17:11:19 +0000 |
| commit | eb31b78e700ea0345396e27142faff79fd75f356 (patch) | |
| tree | b2e76ca4fe6e39fd633082d202794c4321259725 /lib/Tie | |
| parent | da687c2af97fa1d5b33113fe1498d87de2b43b2a (diff) | |
| download | perl-eb31b78e700ea0345396e27142faff79fd75f356.tar.gz | |
Integrate perlio:
[ 15002]
Win32 tweak
[ 14999]
Win32 hack
[ 14995]
Remove debugging assert
p4raw-link: @15002 on //depot/perlio: 330f1a50c5d35c91987f1aef437dcb98bb1db640
p4raw-link: @14999 on //depot/perlio: aa0955498d45bb8096ef3cae16377877c15810a6
p4raw-link: @14995 on //depot/perlio: 24140e009b1b0a7cb78bf9b74be60f7a30a12452
p4raw-id: //depot/perl@15008
Diffstat (limited to 'lib/Tie')
| -rw-r--r-- | lib/Tie/File/t/16_handle.t | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/lib/Tie/File/t/16_handle.t b/lib/Tie/File/t/16_handle.t index a438612cd6..5ff3c82a7c 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++; } |