Change 15008: Integrate perlio: win32 tweaks.

[Jarkko Hietaniemi]

Change 15008 by jhi@alpha on 2002/03/04 17:11:19

        Integrate perlio: win32 tweaks.

Affected files ...

.... //depot/perl/ext/Encode/t/JP.t#6 integrate
.... //depot/perl/ext/threads/shared/shared.xs#20 integrate
.... //depot/perl/lib/Tie/File/t/16_handle.t#2 integrate

Differences ...

==== //depot/perl/ext/Encode/t/JP.t#6 (text) ====
==== //depot/perl/ext/threads/shared/shared.xs#20 (text) ====
Index: perl/ext/threads/shared/shared.xs
--- perl/ext/threads/shared/shared.xs.~1~       Mon Mar  4 10:15:05 2002
+++ perl/ext/threads/shared/shared.xs   Mon Mar  4 10:15:05 2002
@@ -452,7 +452,9 @@
 sharedsv_scalar_mg_free(pTHX_ SV *sv, MAGIC *mg)
 {
     shared_sv *shared = (shared_sv *) mg->mg_ptr;
+#if 0
     assert (SvREFCNT(SHAREDSvPTR(shared)) < 1000);
+#endif
     Perl_sharedsv_free(aTHX_ shared);
     return 0;
 }

==== //depot/perl/lib/Tie/File/t/16_handle.t#2 (text) ====
Index: perl/lib/Tie/File/t/16_handle.t
--- perl/lib/Tie/File/t/16_handle.t.~1~ Mon Mar  4 10:15:05 2002
+++ perl/lib/Tie/File/t/16_handle.t     Mon Mar  4 10:15:05 2002
@@ -14,6 +14,7 @@
 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 @@
    if ($@ && $@ =~ /filehandle does not appear to be seekable/) {
      print "ok $N\n";
    } else {
-     print "not ok $N\n";
+     print "not ok $N # $@\n";
    }
    $N++;
 }
End of Patch.