This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Integrate mainline - a few Devel::Peak fails.
authorNick Ing-Simmons <nik@tiuk.ti.com>
Sun, 18 Nov 2001 11:00:34 +0000 (11:00 +0000)
committerNick Ing-Simmons <nik@tiuk.ti.com>
Sun, 18 Nov 2001 11:00:34 +0000 (11:00 +0000)
p4raw-id: //depot/perlio@13066

lib/Pod/ParseLink.pm
lib/Thread.pm
perl.h
pod/perluniintro.pod
t/op/utf8decode.t [changed mode: 0644->0755]

index cced975..e812f24 100644 (file)
@@ -55,8 +55,8 @@ sub _parse_section {
     # section.  If there is no section and the name contains spaces, also
     # guess that it's an old section link.
     my ($page, $section) = split (/\s*\/\s*/, $link, 2);
-    $section =~ s/^"\s*(.*?)\s*"$/$1/ if $section;
-    if ($page && $page =~ / / && !defined ($section)) {
+    $section =~ s/^"\s*(.*?)\s*"$/$1/;
+    if ($page =~ / / && !defined ($section)) {
         $section = $page;
         $page = undef;
     } else {
index fc39769..4e88706 100644 (file)
@@ -1,11 +1,13 @@
 package Thread;
 
+$VERSION = '2.00';
+
 use strict;
 
-our($VERSION, $ithreads, $othreads);
+our $ithreads;
+our $othreads;
 
 BEGIN {
-    $VERSION = '2.00';
     use Config;
     $ithreads = $Config{useithreads};
     $othreads = $Config{use5005threads};
@@ -13,7 +15,7 @@ BEGIN {
 
 require Exporter;
 use XSLoader ();
-our(@ISA, @EXPORT, @EXPORT_OK);
+our($VERSION, @ISA, @EXPORT, @EXPORT_OK);
 
 @ISA = qw(Exporter);
 
@@ -313,10 +315,6 @@ sub unimplement {
 
 BEGIN {
     if ($ithreads) {
-       if ($othreads) {
-           require Carp;
-           Carp::croak("This Perl has both ithreads and 5005threads (serious malconfiguration)");
-       }
        XSLoader::load 'threads';
        for my $m (qw(new join detach yield self tid equal)) {
            no strict 'refs';
@@ -334,7 +332,7 @@ BEGIN {
        unimplement(qw(unlock));
     } else {
        require Carp;
-       Carp::croak("This Perl has neither ithreads nor 5005threads");
+       Carp::croak("This Perl has neither ithreads not 5005threads");
     }
 }
 
diff --git a/perl.h b/perl.h
index e816534..605894d 100644 (file)
--- a/perl.h
+++ b/perl.h
@@ -425,7 +425,7 @@ int usleep(unsigned int);
 #  define MYSWAP
 #endif
 
-/* Cannot include embed.h here on Win32 as win32.h has not 
+/* Cannot include embed.h here on Win32 as win32.h has not
    yet been included and defines some config variables e.g. HAVE_INTERP_INTERN
  */
 #if !defined(PERL_FOR_X2P) && !(defined(WIN32)||defined(VMS))
index cd978d0..cdd0b40 100644 (file)
@@ -236,19 +236,11 @@ for doing conversions between those encodings:
 
 Normally writing out Unicode data
 
-    print FH chr(0x100), "\n";
+    print chr(0x100), "\n";
 
-will print out the raw UTF-8 bytes, but you will get a warning
-out of that if you use C<-w> or C<use warnings>.  To avoid the
-warning open the stream explicitly in UTF-8:
+will print out the raw UTF-8 bytes.
 
-    open FH, ">:utf8", "file";
-
-and on already open streams use C<binmode()>:
-
-    binmode(STDOUT, ":utf8");
-
-Reading in correctly formed UTF-8 data will not magically turn
+But reading in correctly formed UTF-8 data will not magically turn
 the data into Unicode in Perl's eyes.
 
 You can use either the C<':utf8'> I/O discipline when opening files
@@ -259,11 +251,11 @@ You can use either the C<':utf8'> I/O discipline when opening files
 The I/O disciplines can also be specified more flexibly with
 the C<open> pragma; see L<open>:
 
-    use open ':utf8'; # input and output default discipline will be UTF-8
-    open X, ">file";
-    print X chr(0x100), "\n";
+    use open ':utf8'; # input and output will be UTF-8
+    open X, ">utf8";
+    print X chr(0x100), "\n"; # this would have been UTF-8 without the pragma
     close X;
-    open Y, "<file";
+    open Y, "<utf8";
     printf "%#x\n", ord(<Y>); # this should print 0x100
     close Y;
 
@@ -337,8 +329,7 @@ by repeatedly encoding it in UTF-8:
     close F;
 
 If you run this code twice, the contents of the F<file> will be twice
-UTF-8 encoded.  A C<use open ':utf8'> would have avoided the bug, or
-explicitly opening also the F<file> for input as UTF-8.
+UTF-8 encoded.  A C<use open ':utf8'> would have avoided the bug.
 
 =head2 Special Cases
 
old mode 100644 (file)
new mode 100755 (executable)