Change 16849 by jhi@alpha on 2002/05/29 01:16:23
pod cleanups.
Affected files ...
..... //depot/perl/README.aix#14 edit
..... //depot/perl/README.cygwin#22 edit
..... //depot/perl/README.jp#4 edit
..... //depot/perl/README.ko#5 edit
..... //depot/perl/README.macos#7 edit
..... //depot/perl/README.tw#4 edit
..... //depot/perl/pod/perl561delta.pod#9 edit
..... //depot/perl/pod/perldelta.pod#399 edit
..... //depot/perl/pod/perlfaq4.pod#75 edit
..... //depot/perl/pod/perlfaq5.pod#48 edit
..... //depot/perl/pod/perlfunc.pod#322 edit
..... //depot/perl/pod/perlhack.pod#60 edit
..... //depot/perl/pod/perlipc.pod#36 edit
..... //depot/perl/pod/perlsub.pod#48 edit
..... //depot/perl/pod/perlthrtut.pod#18 edit
..... //depot/perl/pod/perlunicode.pod#106 edit
..... //depot/perl/pod/perluniintro.pod#38 edit
Differences ...
==== //depot/perl/README.aix#14 (text) ====
Index: perl/README.aix
--- perl/README.aix#13~16766~ Fri May 24 07:30:25 2002
+++ perl/README.aix Tue May 28 18:16:23 2002
@@ -175,7 +175,7 @@
Using gcc-3.0 (tested with 3.0.4) now works out of the box, as do
recent gcc-2.9 builds available directly from IBM as part of their Linux
compatibility packages, available here:
-
+
http://www.ibm.com/servers/aix/products/aixos/linux/
=head2 Using Large Files with Perl
==== //depot/perl/README.cygwin#22 (text) ====
Index: perl/README.cygwin
--- perl/README.cygwin#21~16800~ Sun May 26 08:27:05 2002
+++ perl/README.cygwin Tue May 28 18:16:23 2002
@@ -403,7 +403,7 @@
Inplace editing ( perl -i ) of files doesn't work without doing a backup
of the file being edited ( perl -i.bak ).
-
+
=back
=head1 INSTALL PERL ON CYGWIN
==== //depot/perl/README.jp#4 (text) ====
Index: perl/README.jp
--- perl/README.jp#3~15980~ Wed Apr 17 13:57:36 2002
+++ perl/README.jp Tue May 28 18:16:23 2002
@@ -103,11 +103,11 @@
Jperl ¸ß´¹¥¹¥¯¥ê¥×¥È
¤¤¤ï¤æ¤ë"shebang"¤òÊѹ¹¤¹¤ë¤À¤±¤Ç¡¢JperlÍѤÎscript¤Î¤Û¤È¤ó¤É¤ÏÊѹ¹¤Ê¤·¤ËÍøÍѲÄǽ¤À¤È»×¤ï¤ì¤Þ¤¹¡£
-
+
#!/path/to/jperl
¢
#!/path/to/perl -Mencoding=euc-jp
-
+
¾Ü¤·¤¯¤Ï perldoc encoding ¤ò»²¾È¤·¤Æ¤¯¤À¤µ¤¤¡£
=back
==== //depot/perl/README.ko#5 (text) ====
Index: perl/README.ko
--- perl/README.ko#4~16438~ Mon May 6 17:14:12 2002
+++ perl/README.ko Tue May 28 18:16:23 2002
@@ -165,7 +165,7 @@
Home for Korean Perlmanias
=item L<http://www.oreilly.co.kr/perl/>
-
+
O'Reilly¿¡¼ ³ª¿Â Çѱ¹¾î Perl ¼Àû ¸ñ·Ï
=item L<http://www.perlschool.net/>
@@ -195,7 +195,7 @@
Çѱ¹¾î ¹®ÀÚ ÁýÇÕ ¹× ÀÎÄÚµù¿¡ ´ëÇÑ ¾È³».
-=item L<htp://www.cl.cam.ac.uk/~mgk25/unicode.html>
+=item L<http://www.cl.cam.ac.uk/~mgk25/unicode.html>
À¯´Ð½º/¸®´ª½º¿¡¼ À¯´ÏÄÚµå¿Í UTF-8 »ç¿ë¿¡ ´ëÇÑ ¹®´äÁý(FAQ)
==== //depot/perl/README.macos#7 (text) ====
Index: perl/README.macos
--- perl/README.macos#6~16364~ Thu May 2 19:22:56 2002
+++ perl/README.macos Tue May 28 18:16:23 2002
@@ -6,7 +6,6 @@
README.macos - Perl under Mac OS (Classic)
-
=head1 SYNOPSIS
This document briefly describes perl under Mac OS (Classic).
==== //depot/perl/README.tw#4 (text) ====
Index: perl/README.tw
--- perl/README.tw#3~16011~ Fri Apr 19 14:53:55 2002
+++ perl/README.tw Tue May 28 18:16:23 2002
@@ -141,7 +141,11 @@
Unix/Linux ¤Wªº UTF-8 ¤Î Unicode µª«È°Ý
+=back
+
=head2 ¤¤¤å¤Æ¸ê°T
+
+=over 4
=item ¬°¤°»ò¥s "¥¿Å餤¤å" ¤£¥s "ÁcÅ餤¤å"?
==== //depot/perl/pod/perl561delta.pod#9 (text) ====
Index: perl/pod/perl561delta.pod
--- perl/pod/perl561delta.pod#8~15543~ Tue Mar 26 19:11:55 2002
+++ perl/pod/perl561delta.pod Tue May 28 18:16:23 2002
@@ -3444,7 +3444,7 @@
=over
-=item
+=item *
64-bit builds
@@ -3459,7 +3459,7 @@
Note that 64-bit support is still experimental.
-=item
+=item *
Failure of Thread tests
@@ -3468,7 +3468,7 @@
not new failures--Perl 5.005_0x has the same bugs, but didn't have these
tests. (Note that support for 5.005-style threading remains experimental.)
-=item
+=item *
NEXTSTEP 3.3 POSIX test failure
@@ -3477,7 +3477,7 @@
a month starting from zero, which, while being logical to programmers,
will cause the subtests 19 to 27 of the lib/posix test may fail.
-=item
+=item *
Tru64 (aka Digital UNIX, aka DEC OSF/1) lib/sdbm test failure with gcc
==== //depot/perl/pod/perldelta.pod#399 (text) ====
Index: perl/pod/perldelta.pod
--- perl/pod/perldelta.pod#398~16813~ Mon May 27 09:35:47 2002
+++ perl/pod/perldelta.pod Tue May 28 18:16:23 2002
@@ -2010,7 +2010,7 @@
# Nothing has set the FOO element so far
{ local $tied_hash{FOO} = 'Bar' }
-
+
# This used to print, but not now.
print "exists!\n" if exists $tied_hash{FOO};
==== //depot/perl/pod/perlfaq4.pod#75 (text) ====
Index: perl/pod/perlfaq4.pod
--- perl/pod/perlfaq4.pod#74~16729~ Tue May 21 17:24:29 2002
+++ perl/pod/perlfaq4.pod Tue May 28 18:16:23 2002
@@ -135,7 +135,9 @@
optimized for speed on some operations, and for at least some
programmers the notation might be familiar.
-=item B<How do I convert hexadecimal into decimal:>
+=over 4
+
+=item How do I convert hexadecimal into decimal
Using perl's built in conversion of 0x notation:
@@ -158,7 +160,7 @@
$vec = Bit::Vector->new_Hex(32, "DEADBEEF");
$dec = $vec->to_Dec();
-=item B<How do I convert from decimal to hexadecimal:>
+=item How do I convert from decimal to hexadecimal
Using sprint:
@@ -181,7 +183,7 @@
$vec->Resize(32); # suppress leading 0 if unwanted
$hex = $vec->to_Hex();
-=item B<How do I convert from octal to decimal:>
+=item How do I convert from octal to decimal
Using Perl's built in conversion of numbers with leading zeros:
@@ -200,7 +202,7 @@
$vec->Chunk_List_Store(3, split(//, reverse "33653337357"));
$dec = $vec->to_Dec();
-=item B<How do I convert from decimal to octal:>
+=item How do I convert from decimal to octal
Using sprintf:
@@ -212,7 +214,7 @@
$vec = Bit::Vector->new_Dec(32, -559038737);
$oct = reverse join('', $vec->Chunk_List_Read(3));
-=item B<How do I convert from binary to decimal:>
+=item How do I convert from binary to decimal
Perl 5.6 lets you write binary numbers directly with
the 0b notation:
@@ -236,7 +238,7 @@
$vec = Bit::Vector->new_Bin(32, "11011110101011011011111011101111");
$dec = $vec->to_Dec();
-=item B<How do I convert from decimal to binary:>
+=item How do I convert from decimal to binary
Using unpack;
@@ -251,6 +253,7 @@
The remaining transformations (e.g. hex -> oct, bin -> hex, etc.)
are left as an exercise to the inclined reader.
+=back
=head2 Why doesn't & work the way I want it to?
@@ -1404,12 +1407,12 @@
for $orbit ( values %orbits ) {
($orbit **= 3) *= (4/3) * 3.14159;
}
-
+
Prior to perl 5.6 C<values> returned copies of the values,
so older perl code often contains constructions such as
C<@orbits{keys %orbits}> instead of C<values %orbits> where
the hash is to be modified.
-
+
=head2 How do I select a random element from an array?
Use the rand() function (see L<perlfunc/rand>):
==== //depot/perl/pod/perlfaq5.pod#48 (text) ====
Index: perl/pod/perlfaq5.pod
--- perl/pod/perlfaq5.pod#47~16801~ Sun May 26 08:56:15 2002
+++ perl/pod/perlfaq5.pod Tue May 28 18:16:23 2002
@@ -42,7 +42,7 @@
Some idioms can handle this in a single statement:
select((select(OUTPUT_HANDLE), $| = 1)[0]);
-
+
$| = 1, select $_ for select OUTPUT_HANDLE;
Some modules offer object-oriented access to handles and their
@@ -162,11 +162,11 @@
and use them in the place of named handles.
open my $fh, $file_name;
-
+
open local $fh, $file_name;
-
+
print $fh "Hello World!\n";
-
+
process_file( $fh );
Before perl5.6, you had to deal with various typeglob idioms
@@ -175,7 +175,7 @@
open FILE, "> $filename";
process_typeglob( *FILE );
process_reference( \*FILE );
-
+
sub process_typeglob { local *FH = shift; print FH "Typeglob!" }
sub process_reference { local $fh = shift; print $fh "Reference!" }
==== //depot/perl/pod/perlfunc.pod#322 (text) ====
Index: perl/pod/perlfunc.pod
--- perl/pod/perlfunc.pod#321~16807~ Sun May 26 19:39:04 2002
+++ perl/pod/perlfunc.pod Tue May 28 18:16:23 2002
@@ -2889,7 +2889,7 @@
#!/usr/bin/perl
open my $oldout, ">&STDOUT" or die "Can't dup STDOUT: $!";
open OLDERR, ">&", \*STDERR or die "Can't dup STDERR: $!";
-
+
open STDOUT, '>', "foo.out" or die "Can't redirect STDOUT: $!";
open STDERR, ">&STDOUT" or die "Can't dup STDOUT: $!";
==== //depot/perl/pod/perlhack.pod#60 (text) ====
Index: perl/pod/perlhack.pod
--- perl/pod/perlhack.pod#59~16688~ Sat May 18 17:28:51 2002
+++ perl/pod/perlhack.pod Tue May 28 18:16:23 2002
@@ -495,10 +495,6 @@
http://bugs.perl.org/perlbug.cgi?req=spec
-
-B<The interfaces:>
-
-
=item 1 http://bugs.perl.org
Login via the web, (remove B<admin/> if only browsing), where interested Cc's, tests,
patches and change-ids, etc. may be assigned.
==== //depot/perl/pod/perlipc.pod#36 (text) ====
Index: perl/pod/perlipc.pod
--- perl/pod/perlipc.pod#35~16796~ Sun May 26 08:18:27 2002
+++ perl/pod/perlipc.pod Tue May 28 18:16:23 2002
@@ -304,7 +304,7 @@
look like a loop as the operating system will re-issue the signal as
there are un-waited-for completed child processes.
-=back 4
+=back
=head1 Using open() for IPC
==== //depot/perl/pod/perlsub.pod#48 (text) ====
Index: perl/pod/perlsub.pod
--- perl/pod/perlsub.pod#47~16798~ Sun May 26 08:23:32 2002
+++ perl/pod/perlsub.pod Tue May 28 18:16:23 2002
@@ -686,7 +686,7 @@
# set_arr_lv cannot stop this !
set_arr_lv() = { a => 1 };
-
+
=back
=head2 Passing Symbol Table Entries (typeglobs)
==== //depot/perl/pod/perlthrtut.pod#18 (text) ====
Index: perl/pod/perlthrtut.pod
--- perl/pod/perlthrtut.pod#17~16695~ Sun May 19 11:02:54 2002
+++ perl/pod/perlthrtut.pod Tue May 28 18:16:23 2002
@@ -331,7 +331,7 @@
this. yield() is pretty straightforward, and works like this:
use threads;
-
+
sub loop {
my $thread = shift;
my $foo = 50;
@@ -344,7 +344,7 @@
my $thread1 = threads->new(\&loop, 'first');
my $thread2 = threads->new(\&loop, 'second');
my $thread3 = threads->new(\&loop, 'third');
-
+
It is important to remember that yield() is only a hint to give up the CPU,
it depends on your hardware, OS and threading libraries what actually happens.
Therefore it is important to note that one should not build the scheduling of
@@ -433,7 +433,7 @@
my $foo : shared = 1;
my $bar = 1;
threads->new(sub { $foo++; $bar++ })->join;
-
+
print "$foo\n"; #prints 2 since $foo is shared
print "$bar\n"; #prints 1 since $bar is not shared
==== //depot/perl/pod/perlunicode.pod#106 (text) ====
Index: perl/pod/perlunicode.pod
--- perl/pod/perlunicode.pod#105~16761~ Thu May 23 16:25:48 2002
+++ perl/pod/perlunicode.pod Tue May 28 18:16:23 2002
@@ -765,7 +765,7 @@
which will match assigned characters known to be part of the Greek script.
-[b] See L</User-defined Character Properties>.
+[b] See L</"User-Defined Character Properties">.
=item *
==== //depot/perl/pod/perluniintro.pod#38 (text) ====
Index: perl/pod/perluniintro.pod
--- perl/pod/perluniintro.pod#37~16761~ Thu May 23 16:25:48 2002
+++ perl/pod/perluniintro.pod Tue May 28 18:16:23 2002
@@ -588,7 +588,7 @@
=over 4
-=item
+=item *
Will My Old Scripts Break?
@@ -600,7 +600,7 @@
to C<chr(45)> or "-" (in ASCII), now it is LATIN CAPITAL LETTER I WITH
BREVE.
-=item
+=item *
How Do I Make My Scripts Work With Unicode?
@@ -608,7 +608,7 @@
generate Unicode data. The most important thing is getting input as
Unicode; for that, see the earlier I/O discussion.
-=item
+=item *
How Do I Know Whether My String Is In Unicode?
@@ -655,7 +655,7 @@
print length($unicode), "\n"; # will also print 2
# (the 0xC4 0x80 of the UTF-8)
-=item
+=item *
How Do I Detect Data That's Not Valid In a Particular Encoding?
@@ -679,7 +679,7 @@
Unicode". Without that the C<unpack("U*", ...)> would accept also
data like C<chr(0xFF>), similarly to the C<pack> as we saw earlier.
-=item
+=item *
How Do I Convert Binary Data Into a Particular Encoding, Or Vice Versa?
@@ -734,14 +734,14 @@
use C<unpack("C*", $string)> for the former, and you can create
well-formed Unicode data by C<pack("U*", 0xff, ...)>.
-=item
+=item *
How Do I Display Unicode? How Do I Input Unicode?
See http://www.alanwood.net/unicode/ and
http://www.cl.cam.ac.uk/~mgk25/unicode.html
-=item
+=item *
How Does Unicode Work With Traditional Locales?
End of Patch.
