From e23207ad2917dd19288f703418eb2fadce16894b Mon Sep 17 00:00:00 2001 From: "Todd C. Miller" Date: Wed, 3 Dec 2003 02:44:33 +0000 Subject: perl 5.8.2 from CPAN --- gnu/usr.bin/perl/ext/Socket/t/Socket.t | 47 ++------------- gnu/usr.bin/perl/ext/Socket/t/socketpair.t | 17 +++--- gnu/usr.bin/perl/pod.lst | 96 ++++++++---------------------- gnu/usr.bin/perl/pod/perl573delta.pod | 6 +- gnu/usr.bin/perl/pod/perldoc.pod | 66 +++----------------- gnu/usr.bin/perl/regen_lib.pl | 47 ++++----------- 6 files changed, 64 insertions(+), 215 deletions(-) (limited to 'gnu/usr.bin/perl') diff --git a/gnu/usr.bin/perl/ext/Socket/t/Socket.t b/gnu/usr.bin/perl/ext/Socket/t/Socket.t index 9a6d31f5c90..dba6cf3e16b 100644 --- a/gnu/usr.bin/perl/ext/Socket/t/Socket.t +++ b/gnu/usr.bin/perl/ext/Socket/t/Socket.t @@ -1,6 +1,8 @@ #!./perl BEGIN { + chdir 't' if -d 't'; + @INC = '../lib'; require Config; import Config; if ($Config{'extensions'} !~ /\bSocket\b/ && !(($^O eq 'VMS') && $Config{d_socket})) { @@ -10,9 +12,9 @@ BEGIN { $has_alarm = $Config{d_alarm}; } -use Socket qw(:all); +use Socket; -print "1..21\n"; +print "1..16\n"; $has_echo = $^O ne 'MSWin32'; $alarmed = 0; @@ -20,7 +22,7 @@ sub arm { $alarmed = 0; alarm(shift) if $has_alarm } sub alarmed { $alarmed = 1 } $SIG{ALRM} = 'alarmed' if $has_alarm; -if (socket(T, PF_INET, SOCK_STREAM, IPPROTO_TCP)) { +if (socket(T,PF_INET,SOCK_STREAM,6)) { print "ok 1\n"; arm(5); @@ -68,7 +70,7 @@ else { print "not ok 1\n"; } -if( socket(S, PF_INET,SOCK_STREAM, IPPROTO_TCP) ){ +if( socket(S,PF_INET,SOCK_STREAM,6) ){ print "ok 4\n"; arm(5); @@ -147,40 +149,3 @@ if (sockaddr_family(pack_sockaddr_in(100,inet_aton("10.250.230.10"))) == AF_INET eval { sockaddr_family("") }; print (($@ =~ /^Bad arg length for Socket::sockaddr_family, length is 0, should be at least \d+/) ? "ok 16\n" : "not ok 16\n"); - -if ($^O eq 'linux') { - # see if we can handle abstract sockets - my $test_abstract_socket = chr(0) . '/org/perl/hello'. chr(0) . 'world'; - my $addr = sockaddr_un ($test_abstract_socket); - my ($path) = sockaddr_un ($addr); - if ($test_abstract_socket eq $path) { - print "ok 17\n"; - } - else { - $path =~ s/\0/\\0/g; - print "# got <$path>\n"; - print "not ok 17\n"; - } - - # see if we calculate the address structure length correctly - if (length ($test_abstract_socket) + 2 == length $addr) { - print "ok 18\n"; - } else { - print "# got ".(length $addr)."\n"; - print "not ok 18\n"; - } - -} else { - # doesn't have abstract socket support - print "ok 17 - skipped on this platform\n"; - print "ok 18 - skipped on this platform\n"; -} - -if($Config{d_inetntop} && $Config{d_inetaton}){ - print ((inet_ntop(AF_INET, inet_pton(AF_INET, "10.20.30.40")) eq "10.20.30.40") ? "ok 19\n" : "not ok 19\n"); - print ((inet_ntop(AF_INET, inet_aton("10.20.30.40")) eq "10.20.30.40") ? "ok 20\n" : "not ok 20\n"); - print (lc(inet_ntop(AF_INET6, inet_pton(AF_INET6, "2001:503:BA3E::2:30")) eq "2001:503:ba3e::2:30") ? "ok 21\n" : "not ok 21\n"); -} else { - # no IPv6 - print "ok $_ - skipped on this platform\n" for 19 .. 21; -} diff --git a/gnu/usr.bin/perl/ext/Socket/t/socketpair.t b/gnu/usr.bin/perl/ext/Socket/t/socketpair.t index 997628c3bd7..95d424a5c55 100644 --- a/gnu/usr.bin/perl/ext/Socket/t/socketpair.t +++ b/gnu/usr.bin/perl/ext/Socket/t/socketpair.t @@ -5,23 +5,26 @@ my $can_fork; my $has_perlio; BEGIN { + chdir 't' if -d 't'; + @INC = '../lib'; require Config; import Config; - $can_fork = $Config{'d_fork'} || $Config{'d_pseudofork'}; + $can_fork = $Config{'d_fork'} + || ($^O eq 'MSWin32' && $Config{useithreads} + && $Config{ccflags} =~ /-DPERL_IMPLICIT_SYS\b/); + if ($^O eq "hpux" or $Config{'extensions'} !~ /\bSocket\b/ && !(($^O eq 'VMS') && $Config{d_socket})) { print "1..0\n"; exit 0; - } -} - -{ - # This was in the BEGIN block, but since Test::More 0.47 added support to - # detect forking, we don't need to fork before Test::More initialises. + } # Too many things in this test will hang forever if something is wrong, # so we need a self destruct timer. And IO can hang despite an alarm. + # This is convoluted, but we must fork before Test::More, else child's + # Test::More thinks that it ran no tests, and prints a message to that + # effect if( $can_fork) { my $parent = $$; $child = fork; diff --git a/gnu/usr.bin/perl/pod.lst b/gnu/usr.bin/perl/pod.lst index 83a0d11ec75..46112a47b46 100644 --- a/gnu/usr.bin/perl/pod.lst +++ b/gnu/usr.bin/perl/pod.lst @@ -1,19 +1,18 @@ -# h - Header -# o - Omit from toc +# O - Header, omit from toc +# o - Item, omit from toc +# I - Header, include in toc # r - top level READMEs to be copied/symlinked -# g - other autogenerated pods -# a - for auxiliary documentation +# a - Item, for auxiliary documentation +# a - Header for auxiliary documentation # number - indent by -# D - this version's perldelta -# d - copied to this name -h Overview +I Overview perl Perl overview (this section) perlintro Perl introduction for beginners -go perltoc Perl documentation table of contents + perltoc Perl documentation table of contents -h Tutorials +I Tutorials perlreftut Perl references short introduction perldsc Perl data structures intro @@ -27,8 +26,6 @@ h Tutorials perltooc Perl OO tutorial, part 2 perlbot Perl OO tricks and examples - perlperf Perl Performance and Optimization Techniques - perlstyle Perl style guide perlcheat Perl cheat sheet @@ -46,7 +43,7 @@ h Tutorials 2 perlfaq8 System Interaction 2 perlfaq9 Networking -h Reference Manual +I Reference Manual perlsyn Perl syntax perldata Perl data structures @@ -63,8 +60,6 @@ h Reference Manual perldebug Perl debugging perlvar Perl predefined variables perlre Perl regular expressions, the rest of the story - perlrebackslash Perl regular expression backslash sequences - perlrecharclass Perl regular expression character classes perlreref Perl regular expressions quick reference perlref Perl references, the rest of the story perlform Perl formats @@ -77,24 +72,21 @@ h Reference Manual perlnumber Perl number semantics perlthrtut Perl threads tutorial +2 perlothrtut Old Perl threads tutorial perlport Perl portability guide perllocale Perl locale support perluniintro Perl Unicode introduction perlunicode Perl Unicode support - perlunifaq Perl Unicode FAQ -g perluniprops Index of Unicode Version 5.2.0 properties in Perl - perlunitut Perl Unicode tutorial perlebcdic Considerations for running Perl on EBCDIC platforms perlsec Perl security perlmod Perl modules: how they work -g perlmodlib Perl modules: how to write and use + perlmodlib Perl modules: how to write and use perlmodstyle Perl modules: how to write modules with style perlmodinstall Perl modules: how to install from CPAN perlnewmod Perl modules: preparing a new module for distribution - perlpragma Perl modules: writing a user pragma perlutil utilities packaged with the Perl distribution @@ -102,9 +94,7 @@ g perlmodlib Perl modules: how to write and use perlfilter Perl source filters - perlglossary Perl Glossary - -h Internals and C Language Interface +I Internals and C Language Interface perlembed Perl ways to embed perl in your C or C++ application perldebguts Perl debugging guts and tips @@ -113,54 +103,23 @@ h Internals and C Language Interface perlclib Internal replacements for standard C library functions perlguts Perl internal functions for those doing extensions perlcall Perl calling conventions from C - perlmroapi Perl method resolution plugin interface - perlreapi Perl regular expression plugin interface - perlreguts Perl regular expression engine internals -g perlapi Perl API listing (autogenerated) -g perlintern Perl internal functions (autogenerated) + perlapi Perl API listing (autogenerated) + perlintern Perl internal functions (autogenerated) perliol C API for Perl's implementation of IO in Layers perlapio Perl internal IO abstraction interface perlhack Perl hackers guide - perlpolicy Perl development policies - perlrepository Perl source repository -h Miscellaneous +I Miscellaneous perlbook Perl book information - perlcommunity Perl community information perltodo Perl things to do perldoc Look up Perl documentation in Pod format perlhist Perl history records -d perldelta Perl changes since previous version -D perl5122delta Perl changes in version 5.12.2 - perl5121delta Perl changes in version 5.12.1 - perl5120delta Perl changes in version 5.12.0 - perl5115delta Perl changes in version 5.11.5 - perl5114delta Perl changes in version 5.11.4 - perl5113delta Perl changes in version 5.11.3 - perl5112delta Perl changes in version 5.11.2 - perl5111delta Perl changes in version 5.11.1 - perl5110delta Perl changes in version 5.11.0 - perl5101delta Perl changes in version 5.10.1 - perl5100delta Perl changes in version 5.10.0 - perl595delta Perl changes in version 5.9.5 - perl594delta Perl changes in version 5.9.4 - perl593delta Perl changes in version 5.9.3 - perl592delta Perl changes in version 5.9.2 - perl591delta Perl changes in version 5.9.1 - perl590delta Perl changes in version 5.9.0 - perl589delta Perl changes in version 5.8.9 - perl588delta Perl changes in version 5.8.8 - perl587delta Perl changes in version 5.8.7 - perl586delta Perl changes in version 5.8.6 - perl585delta Perl changes in version 5.8.5 - perl584delta Perl changes in version 5.8.4 - perl583delta Perl changes in version 5.8.3 - perl582delta Perl changes in version 5.8.2 + perldelta Perl changes since previous version perl581delta Perl changes in version 5.8.1 perl58delta Perl changes in version 5.8.0 perl573delta Perl changes in version 5.7.3 @@ -175,14 +134,14 @@ D perl5122delta Perl changes in version 5.12.2 perlartistic Perl Artistic License perlgpl GNU General Public License -ho Language-Specific +O Language-Specific -ro perlcn Perl for Simplified Chinese (in EUC-CN) -ro perljp Perl for Japanese (in EUC-JP) -ro perlko Perl for Korean (in EUC-KR) -ro perltw Perl for Traditional Chinese (in Big5) +or perlcn Perl for Simplified Chinese (in EUC-CN) +or perljp Perl for Japanese (in EUC-JP) +or perlko Perl for Korean (in EUC-KR) +or perltw Perl for Traditional Chinese (in Big5) -h Platform-Specific +I Platform-Specific r perlaix Perl notes for AIX r perlamiga Perl notes for AmigaOS @@ -195,32 +154,29 @@ r perldgux Perl notes for DG/UX r perldos Perl notes for DOS r perlepoc Perl notes for EPOC r perlfreebsd Perl notes for FreeBSD -r perlhaiku Perl notes for Haiku r perlhpux Perl notes for HP-UX r perlhurd Perl notes for Hurd r perlirix Perl notes for Irix -r perllinux Perl notes for Linux +r perlmachten Perl notes for Power MachTen r perlmacos Perl notes for Mac OS (Classic) r perlmacosx Perl notes for Mac OS X +r perlmint Perl notes for MiNT r perlmpeix Perl notes for MPE/iX r perlnetware Perl notes for NetWare -r perlopenbsd Perl notes for OpenBSD r perlos2 Perl notes for OS/2 r perlos390 Perl notes for OS/390 r perlos400 Perl notes for OS/400 r perlplan9 Perl notes for Plan 9 r perlqnx Perl notes for QNX -r perlriscos Perl notes for RISC OS r perlsolaris Perl notes for Solaris -r perlsymbian Perl notes for Symbian r perltru64 Perl notes for Tru64 r perluts Perl notes for UTS r perlvmesa Perl notes for VM/ESA - perlvms Perl notes for VMS +r perlvms Perl notes for VMS r perlvos Perl notes for Stratus VOS r perlwin32 Perl notes for Windows -aoh Auxiliary Documentation +AO Auxiliary Documentation ao a2p ao c2ph diff --git a/gnu/usr.bin/perl/pod/perl573delta.pod b/gnu/usr.bin/perl/pod/perl573delta.pod index 00e73fed8bf..1121eb5ca92 100644 --- a/gnu/usr.bin/perl/pod/perl573delta.pod +++ b/gnu/usr.bin/perl/pod/perl573delta.pod @@ -20,7 +20,7 @@ The numbers refer to the Perl repository change numbers; see L (or L in Perl 5.8.1). In addition to these changes, lots of work took place in integrating threads, PerlIO, and Unicode; general code cleanup; and last but not least porting to -non-Unix lands such as Win32, VMS, Cygwin, DJGPP, VOS, MacOS Classic, +non-UNIX lands such as Win32, VMS, Cygwin, DJGPP, VOS, MacOS Classic, and EBCDIC. =over 4 @@ -103,7 +103,7 @@ document that use utf8 is not the right way most of the time =item 11656 -allow building perl with -DUSE_UTF8_SCRIPTS which makes UTF-8 +allow builing perl with -DUSE_UTF8_SCRIPTS which makes UTF-8 the default script encoding (not the default since that would break all scripts having legacy eight-bit data in them) @@ -149,7 +149,7 @@ unpack("Z*Z*", pack("Z*Z*", ..)) was broken =item 12243 -Devel::Peek: display UTF-8 SVs also as \x{...} +Devel::Peek: display UTF-8 SVs also also as \x{...} =item 12288 diff --git a/gnu/usr.bin/perl/pod/perldoc.pod b/gnu/usr.bin/perl/pod/perldoc.pod index 883a6184603..123dea10dfe 100644 --- a/gnu/usr.bin/perl/pod/perldoc.pod +++ b/gnu/usr.bin/perl/pod/perldoc.pod @@ -5,7 +5,7 @@ perldoc - Look up Perl documentation in Pod format. =head1 SYNOPSIS -B [B<-h>] [B<-D>] [B<-t>] [B<-u>] [B<-m>] [B<-l>] [B<-F>] +B [B<-h>] [B<-v>] [B<-t>] [B<-u>] [B<-m>] [B<-l>] [B<-F>] [B<-i>] [B<-V>] [B<-T>] [B<-r>] [B<-dI>] [B<-oI>] @@ -13,19 +13,12 @@ B [B<-h>] [B<-D>] [B<-t>] [B<-u>] [B<-m>] [B<-l>] [B<-F>] [B<-wI>] [B<-n>I] [B<-X>] -[B<-L> I] PageName|ModuleName|ProgramName B B<-f> BuiltinFunction -B B<-L> it B<-f> BuiltinFunction - B B<-q> FAQ Keyword -B B<-L> fr B<-q> FAQ Keyword - -B B<-v> PerlVariable - See below for more description of the switches. =head1 DESCRIPTION @@ -50,9 +43,9 @@ documentation, see the L page. Prints out a brief Belp message. -=item B<-D> +=item B<-v> -Bescribes search for the item in Betail. +Describes search for the item in detail (Berbosely). =item B<-t> @@ -87,29 +80,11 @@ Example: perldoc -f sprintf - =item B<-q> I The B<-q> option takes a regular expression as an argument. It will search the Buestion headings in perlfaq[1-9] and print the entries matching -the regular expression. - -Example: - - perldoc -q shuffle - - -=item B<-v> I - -The B<-v> option followed by the name of a Perl predefined variable will -extract the documentation of this variable from L. - -Examples: - - perldoc -v '$"' - perldoc -v @+ - perldoc -v DATA - +the regular expression. Example: C =item B<-T> @@ -140,7 +115,7 @@ Pod::LATEX. =item B<-M> I This specifies the module that you want to try using for formatting the -pod. The class must at least provide a C method. +pod. The class must must at least provide a C method. For example: C. You can specify several classes to try by joining them with commas @@ -165,31 +140,17 @@ might be more (or less) convenient, depending on what shell you use. =item B<-X> -Use an index if it is present. The B<-X> option looks for an entry +Use an index if it is present -- the B<-X> option looks for an entry whose basename matches the name given on the command line in the file C<$Config{archlib}/pod.idx>. The F file should contain fully qualified filenames, one per line. -=item B<-L> I - -This allows to specify the I for desired language translation. -If Clanguage_codeE> package doesn't exist (or isn't installed -in your system), the switch will be ignored. -All available translation packages should be found under the C -namespace. See L (or L) in order to see how to create and -integrate new localized C pod documentation packages in -L. - =item B The item you want to look up. Nested modules (such as C) are specified either as C or C. You may also give a descriptive name of a page, such as C. -For simple names like 'foo', when the normal search fails to find -a matching page, a search with the "perl" prefix is tried as well. -So "perldoc intro" is enough to find/render "perlintro.pod". - =item B<-n> I Specify replacement for nroff @@ -243,25 +204,14 @@ plain text or unformatted pod.) One useful value for C is C. Having PERLDOCDEBUG set to a positive integer will make perldoc emit -even more descriptive output than the C<-v> switch does; the higher the +even more descriptive output than the C<-v> switch does -- the higher the number, the more it emits. - -=head1 CHANGES - -Up to 3.14_05, the switch B<-v> was used to produce verbose -messages of B operation, which is now enabled by B<-D>. - -=head1 SEE ALSO - -L, L - =head1 AUTHOR -Current maintainer: Adriano R. Ferreira +Current maintainer: Sean M. Burke, Past contributors are: -Sean M. Burke , Kenneth Albanowski , Andy Dougherty , and many others. diff --git a/gnu/usr.bin/perl/regen_lib.pl b/gnu/usr.bin/perl/regen_lib.pl index 7d396c04472..1c830a2cdcf 100644 --- a/gnu/usr.bin/perl/regen_lib.pl +++ b/gnu/usr.bin/perl/regen_lib.pl @@ -1,21 +1,20 @@ #!/usr/bin/perl -w use strict; -use vars qw($Needs_Write $Verbose @Changed); -use File::Compare; -use Symbol; +use vars qw($Is_W32 $Is_OS2 $Is_Cygwin $Is_NetWare $Needs_Write); +use Config; # Remember, this is running using an existing perl # Common functions needed by the regen scripts -$Needs_Write = $^O eq 'cygwin' || $^O eq 'os2' || $^O eq 'MSWin32'; - -$Verbose = 0; -@ARGV = grep { not($_ eq '-q' and $Verbose = -1) } - grep { not($_ eq '-v' and $Verbose = 1) } @ARGV; - -END { - print STDOUT "Changed: @Changed\n" if @Changed; +$Is_W32 = $^O eq 'MSWin32'; +$Is_OS2 = $^O eq 'os2'; +$Is_Cygwin = $^O eq 'cygwin'; +$Is_NetWare = $Config{osname} eq 'NetWare'; +if ($Is_NetWare) { + $Is_W32 = 0; } +$Needs_Write = $Is_OS2 || $Is_W32 || $Is_Cygwin || $Is_NetWare; + sub safer_unlink { my @names = @_; my $cnt = 0; @@ -39,32 +38,8 @@ sub safer_rename_silent { rename $from, $to; } -sub rename_if_different { +sub safer_rename { my ($from, $to) = @_; - - if (compare($from, $to) == 0) { - warn "no changes between '$from' & '$to'\n" if $Verbose > 0; - safer_unlink($from); - return; - } - warn "changed '$from' to '$to'\n" if $Verbose > 0; - push @Changed, $to unless $Verbose < 0; safer_rename_silent($from, $to) or die "renaming $from to $to: $!"; } - -# Saf*er*, but not totally safe. And assumes always open for output. -sub safer_open { - my $name = shift; - my $fh = gensym; - open $fh, ">$name" or die "Can't create $name: $!"; - *{$fh}->{SCALAR} = $name; - binmode $fh; - $fh; -} - -sub safer_close { - my $fh = shift; - close $fh or die 'Error closing ' . *{$fh}->{SCALAR} . ": $!"; -} - 1; -- cgit v1.2.3