This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
require.t needs binmode() to work on windows
authorGurusamy Sarathy <gsar@cpan.org>
Wed, 2 Aug 2000 22:28:59 +0000 (22:28 +0000)
committerGurusamy Sarathy <gsar@cpan.org>
Wed, 2 Aug 2000 22:28:59 +0000 (22:28 +0000)
p4raw-id: //depot/perl@6497

t/comp/require.t

index 418bc3e..bfd4a37 100755 (executable)
@@ -19,6 +19,7 @@ sub do_require {
 sub write_file {
     my $f = shift;
     open(REQ,">$f") or die "Can't write '$f': $!";
+    binmode REQ;
     print REQ @_;
     close REQ;
 }