Change 12558 by nick@camel-linux on 2001/10/22 08:58:42
Integrate ithreads buffer flush fix from perlio
Affected files ...
... //depot/perl/ext/threads/t/basic.t#8 integrate
... //depot/perl/perl.c#380 integrate
Differences ...
==== //depot/perl/ext/threads/t/basic.t#8 (xtext) ====
Index: perl/ext/threads/t/basic.t
--- perl/ext/threads/t/basic.t.~1~ Mon Oct 22 03:15:05 2001
+++ perl/ext/threads/t/basic.t Mon Oct 22 03:15:05 2001
@@ -6,7 +6,7 @@
#
# And even when that will be fixed, this is a basic
# test and should not rely on shared variables
-#
+#
# This will test the basic API, it will not use any coderefs
# as they are more advanced
#
@@ -25,7 +25,7 @@
use ExtUtils::testlib;
use strict;
-BEGIN { print "1..15\n" };
+BEGIN { $| = 1; print "1..15\n" };
use threads;
@@ -40,12 +40,12 @@
sub ok {
my ($id, $ok, $name) = @_;
-
+
# You have to do it this way or VMS will get confused.
print $ok ? "ok $id - $name\n" : "not ok $id - $name\n";
printf "# Failed test at line %d\n", (caller)[2] unless $ok;
-
+
return $ok;
}
==== //depot/perl/perl.c#380 (text) ====
Index: perl/perl.c
--- perl/perl.c.~1~ Mon Oct 22 03:15:05 2001
+++ perl/perl.c Mon Oct 22 03:15:05 2001
@@ -459,6 +459,11 @@
DEBUG_P(debprofdump());
+#if defined(PERLIO_LAYERS)
+ /* No more IO - including error messages ! */
+ PerlIO_cleanup(aTHX);
+#endif
+
/* The exit() function will do everything that needs doing. */
return STATUS_NATIVE_EXPORT;;
}
@@ -800,7 +805,7 @@
if (PL_sv_count != 0 && ckWARN_d(WARN_INTERNAL))
Perl_warner(aTHX_ WARN_INTERNAL,"Scalars leaked: %ld\n", (long)PL_sv_count);
-#if 1 && defined(PERLIO_LAYERS)
+#if defined(PERLIO_LAYERS)
/* No more IO - including error messages ! */
PerlIO_cleanup(aTHX);
#endif
End of Patch.
