Change 20598 by [EMAIL PROTECTED] on 2003/08/10 18:29:12
Integrate:
[ 20586]
Subject: [PATCH perlmodinstall.pod] Installation on Win32
From: Michael G Schwern <[EMAIL PROTECTED]>
Date: Fri, 8 Aug 2003 18:35:51 -0700
Message-ID: <[EMAIL PROTECTED]>
[ 20587]
hv_fetch_{ent,flags} failed to set HvHASKFLAGS on a hash where a
normal key was replaced by its UTF-8 equivalent. This caused the
"Storable problem" RT3 users reported under RH9.
[ 20588]
Update Jon Orwant's email address as he wants it,
drop TPJ URL; upate also Doug MacEachern's address.
[ 20589]
Subject: [PATCH t/lib/1_compile.t] Removing tested modules
From: Michael G Schwern <[EMAIL PROTECTED]>
Date: Sat, 9 Aug 2003 13:36:59 -0700
Message-ID: <[EMAIL PROTECTED]>
[ 20593]
Add the perlreref manpage, by Iain Truskett
(regular expressions quick reference.)
Regenerate the table of contents.
[ 20594]
Further tweaks on perlreref.pod (by Iain Truskett)
[ 20595]
One more PL_csighandlerp.
[ 20596]
Try simple workaround for the POSIX autosplit.ix warning.
[ 20597]
Subject: Re: [perl #23265] Nested anonymous subs
From: Dave Mitchell <[EMAIL PROTECTED]>
Date: Sun, 10 Aug 2003 01:35:30 +0100
Message-ID: <[EMAIL PROTECTED]>
Affected files ...
... //depot/maint-5.8/perl/MANIFEST#91 integrate
... //depot/maint-5.8/perl/ext/POSIX/POSIX.pm#6 integrate
... //depot/maint-5.8/perl/ext/POSIX/POSIX.xs#11 integrate
... //depot/maint-5.8/perl/hv.c#18 integrate
... //depot/maint-5.8/perl/pad.c#14 integrate
... //depot/maint-5.8/perl/pod/buildtoc.PL#5 integrate
... //depot/maint-5.8/perl/pod/perl.pod#5 integrate
... //depot/maint-5.8/perl/pod/perlembed.pod#6 integrate
... //depot/maint-5.8/perl/pod/perlmodinstall.pod#2 integrate
... //depot/maint-5.8/perl/pod/perlreref.pod#1 branch
... //depot/maint-5.8/perl/pod/perltoc.pod#9 integrate
... //depot/maint-5.8/perl/t/lib/1_compile.t#2 integrate
... //depot/maint-5.8/perl/t/op/closure.t#6 integrate
Differences ...
==== //depot/maint-5.8/perl/MANIFEST#91 (text) ====
Index: perl/MANIFEST
--- perl/MANIFEST#90~20532~ Wed Aug 6 11:37:49 2003
+++ perl/MANIFEST Sun Aug 10 11:29:12 2003
@@ -2355,6 +2355,7 @@
pod/perlref.pod References info
pod/perlreftut.pod Mark's references tutorial
pod/perlrequick.pod Quick start guide for Perl regular expressions
+pod/perlreref.pod Perl regular expressions reference
pod/perlretut.pod Tutorial for Perl regular expressions
pod/perlrun.pod Execution info
pod/perlsec.pod Security info
==== //depot/maint-5.8/perl/ext/POSIX/POSIX.pm#6 (text) ====
Index: perl/ext/POSIX/POSIX.pm
--- perl/ext/POSIX/POSIX.pm#5~20181~ Wed Jul 23 06:12:38 2003
+++ perl/ext/POSIX/POSIX.pm Sun Aug 10 11:29:12 2003
@@ -2,11 +2,11 @@
our(@ISA, %EXPORT_TAGS, @EXPORT_OK, $AUTOLOAD) = ();
+our $VERSION = "1.05" ;
+
use AutoLoader;
use XSLoader ();
-
-our $VERSION = "1.05" ;
# Grandfather old foo_h form to new :foo_h form
my $loaded;
==== //depot/maint-5.8/perl/ext/POSIX/POSIX.xs#11 (text) ====
Index: perl/ext/POSIX/POSIX.xs
--- perl/ext/POSIX/POSIX.xs#10~20567~ Fri Aug 8 12:51:22 2003
+++ perl/ext/POSIX/POSIX.xs Sun Aug 10 11:29:12 2003
@@ -1302,7 +1302,7 @@
(BTW, "csighandler" is very different from "sighandler".) */
svp = hv_fetch(action, "SAFE", 4, FALSE);
act.sa_handler = (*svp && SvTRUE(*svp))
- ? Perl_csighandler : PL_sighandlerp;
+ ? PL_csighandlerp : PL_sighandlerp;
/* Vector new Perl handler through %SIG.
(The core signal handlers read %SIG to dispatch.) */
==== //depot/maint-5.8/perl/hv.c#18 (text) ====
Index: perl/hv.c
--- perl/hv.c#17~20241~ Sun Jul 27 13:07:20 2003
+++ perl/hv.c Sun Aug 10 11:29:12 2003
@@ -306,6 +306,8 @@
}
else
HeKFLAGS(entry) = flags;
+ if (flags)
+ HvHASKFLAGS_on(hv);
}
if (flags & HVhek_FREEKEY)
Safefree(key);
@@ -471,6 +473,8 @@
}
else
HeKFLAGS(entry) = flags;
+ if (flags)
+ HvHASKFLAGS_on(hv);
}
if (key != keysave)
Safefree(key);
==== //depot/maint-5.8/perl/pad.c#14 (text) ====
Index: perl/pad.c
--- perl/pad.c#13~20585~ Sat Aug 9 11:06:11 2003
+++ perl/pad.c Sun Aug 10 11:29:12 2003
@@ -254,9 +254,15 @@
{
assert(CvWEAKOUTSIDE(innercv));
CvWEAKOUTSIDE_off(innercv);
- CvOUTSIDE(innercv) = outercv;
CvOUTSIDE_SEQ(innercv) = seq;
- SvREFCNT_inc(outercv);
+ /* don't relink to grandfather if he's being freed */
+ if (SvREFCNT(outercv)) {
+ CvOUTSIDE(innercv) = outercv;
+ SvREFCNT_inc(outercv);
+ }
+ else {
+ CvOUTSIDE(innercv) = Nullcv;
+ }
}
}
}
==== //depot/maint-5.8/perl/pod/buildtoc.PL#5 (text) ====
Index: perl/pod/buildtoc.PL
--- perl/pod/buildtoc.PL#4~20397~ Thu Jul 31 13:41:00 2003
+++ perl/pod/buildtoc.PL Sun Aug 10 11:29:12 2003
@@ -137,6 +137,7 @@
perlretut
perlre
+ perlreref
perlref
perlform
==== //depot/maint-5.8/perl/pod/perl.pod#5 (text) ====
Index: perl/pod/perl.pod
--- perl/pod/perl.pod#4~20397~ Thu Jul 31 13:41:00 2003
+++ perl/pod/perl.pod Sun Aug 10 11:29:12 2003
@@ -71,6 +71,7 @@
perldebug Perl debugging
perlvar Perl predefined variables
perlre Perl regular expressions, the rest of the story
+ perlreref Perl regular expressions quick reference
perlref Perl references, the rest of the story
perlform Perl formats
perlobj Perl objects
==== //depot/maint-5.8/perl/pod/perlembed.pod#6 (text) ====
Index: perl/pod/perlembed.pod
--- perl/pod/perlembed.pod#5~19161~ Sun Apr 6 21:20:20 2003
+++ perl/pod/perlembed.pod Sun Aug 10 11:29:12 2003
@@ -1088,8 +1088,8 @@
=head1 AUTHOR
-Jon Orwant <F<[EMAIL PROTECTED]>> and Doug MacEachern
-<F<[EMAIL PROTECTED]>>, with small contributions from Tim Bunce, Tom
+Jon Orwant <F<[EMAIL PROTECTED]>> and Doug MacEachern
+<F<[EMAIL PROTECTED]>>, with small contributions from Tim Bunce, Tom
Christiansen, Guy Decoux, Hallvard Furuseth, Dov Grobgeld, and Ilya
Zakharevich.
==== //depot/maint-5.8/perl/pod/perlmodinstall.pod#2 (text) ====
Index: perl/pod/perlmodinstall.pod
--- perl/pod/perlmodinstall.pod#1~17645~ Fri Jul 19 12:29:57 2002
+++ perl/pod/perlmodinstall.pod Sun Aug 10 11:29:12 2003
@@ -90,7 +90,6 @@
Go into the newly-created directory and type:
perl Makefile.PL
- make
make test
or
@@ -138,19 +137,30 @@
C. BUILD
-Does the module require compilation (i.e. does it have files that end
-in .xs, .c, .h, .y, .cc, .cxx, or .C)? If it doesn't, go to INSTALL.
-If it does, life is now officially tough for you, because you have to
-compile the module yourself -- no easy feat on Windows. You'll need
-the C<nmake> utility, available at
+You'll need the C<nmake> utility, available at
ftp://ftp.microsoft.com/Softlib/MSLFILES/nmake15.exe
+or dmake, available on CPAN.
+http://search.cpan.org/dist/dmake/
+
+Does the module require compilation (i.e. does it have files that end
+in .xs, .c, .h, .y, .cc, .cxx, or .C)? If it does, life is now
+officially tough for you, because you have to compile the module
+yourself -- no easy feat on Windows. You'll need a compiler such as
+Visual C++. Alternatively, you can download a pre-built PPM package
+from ActiveState.
+http://aspn.activestate.com/ASPN/Downloads/ActivePerl/PPM/
+
+Go into the newly-created directory and type:
+
+ perl Makefile.PL
+ nmake test
+
D. INSTALL
-Copy the module into your Perl's I<lib> directory. That'll be one
-of the directories you see when you type
+While still in that directory, type:
- perl -e 'print "@INC"'
+ nmake install
=item *
@@ -253,7 +263,6 @@
Go into the newly-created directory and type:
perl Makefile.PL
- make
make test
You will need the packages mentioned in F<README.dos>
@@ -328,7 +337,6 @@
Now you're ready to build:
- mms
mms test
Substitute C<mmk> for C<mms> above if you're using MMK.
@@ -425,9 +433,7 @@
Jon Orwant
[EMAIL PROTECTED]
-
-The Perl Journal, http://tpj.com
[EMAIL PROTECTED]
with invaluable help from Chris Nandor, and valuable help from Brandon
Allbery, Charles Bailey, Graham Barr, Dominic Dunlop, Jarkko
@@ -439,7 +445,7 @@
=head1 COPYRIGHT
-Copyright (C) 1998, 2002 Jon Orwant. All Rights Reserved.
+Copyright (C) 1998, 2002, 2003 Jon Orwant. All Rights Reserved.
Permission is granted to make and distribute verbatim copies of this
documentation provided the copyright notice and this permission notice are
==== //depot/maint-5.8/perl/pod/perlreref.pod#1 (text) ====
Index: perl/pod/perlreref.pod
--- /dev/null Tue May 5 13:32:27 1998
+++ perl/pod/perlreref.pod Sun Aug 10 11:29:12 2003
@@ -0,0 +1,285 @@
+=head1 NAME
+
+perlreref - Perl Regular Expressions Reference
+
+=head1 DESCRIPTION
+
+This is a quick reference to Perl's regular expressions.
+For full information see L<perlre> and L<perlop>, as well
+as the L<references|/"SEE ALSO"> section in this document.
+
+=head1 OPERATORS
+
+ =~ determines to which variable the regex is applied.
+ In its absence, $_ is used.
+
+ $var =~ /foo/;
+
+ m/pattern/igmsoxc searches a string for a pattern match,
+ applying the given options.
+
+ i case-Insensitive
+ g Global - all occurrences
+ m Multiline mode - ^ and $ match internal lines
+ s match as a Single line - . matches \n
+ o compile pattern Once
+ x eXtended legibility - free whitespace and comments
+ c don't reset pos on fails when using /g
+
+ If 'pattern' is an empty string, the last I<successfully> match
+ regex is used. Delimiters other than '/' may be used for both this
+ operator and the following ones.
+
+ qr/pattern/imsox lets you store a regex in a variable,
+ or pass one around. Modifiers as for m// and are stored
+ within the regex.
+
+ s/pattern/replacement/igmsoxe substitutes matches of
+ 'pattern' with 'replacement'. Modifiers as for m//
+ with one addition:
+
+ e Evaluate replacement as an expression
+
+ 'e' may be specified multiple times. 'replacement' is interpreted
+ as a double quoted string unless a single-quote (') is the delimiter.
+
+ ?pattern? is like m/pattern/ but matches only once. No alternate
+ delimiters can be used. Must be reset with 'reset'.
+
+=head1 SYNTAX
+
+ \ Escapes the character(s) immediately following it
+ . Matches any single character except a newline (unless /s is used)
+ ^ Matches at the beginning of the string (or line, if /m is used)
+ $ Matches at the end of the string (or line, if /m is used)
+ * Matches the preceding element 0 or more times
+ + Matches the preceding element 1 or more times
+ ? Matches the preceding element 0 or 1 times
+ {...} Specifies a range of occurrences for the element preceding it
+ [...] Matches any one of the characters contained within the brackets
+ (...) Groups subexpressions for capturing to $1, $2...
+ (?:...) Groups subexpressions without capturing (cluster)
+ | Matches either the expression preceding or following it
+ \1, \2 ... The text from the Nth group
+
+=head2 ESCAPE SEQUENCES
+
+These work as in normal strings.
+
+ \a Alarm (beep)
+ \e Escape
+ \f Formfeed
+ \n Newline
+ \r Carriage return
+ \t Tab
+ \038 Any octal ASCII value
+ \x7f Any hexadecimal ASCII value
+ \x{263a} A wide hexadecimal value
+ \cx Control-x
+ \N{name} A named character
+
+ \l Lowercase until next character
+ \u Uppercase until next character
+ \L Lowercase until \E
+ \U Uppercase until \E
+ \Q Disable pattern metacharacters until \E
+ \E End case modification
+
+This one works differently from normal strings:
+
+ \b An assertion, not backspace, except in a character class
+
+=head2 CHARACTER CLASSES
+
+ [amy] Match 'a', 'm' or 'y'
+ [f-j] Dash specifies "range"
+ [f-j-] Dash escaped or at start or end means 'dash'
+ [^f-j] Caret indicates "match char any _except_ these"
+
+The following work within or without a character class:
+
+ \d A digit, same as [0-9]
+ \D A nondigit, same as [^0-9]
+ \w A word character (alphanumeric), same as [a-zA-Z_0-9]
+ \W A non-word character, [^a-zA-Z_0-9]
+ \s A whitespace character, same as [ \t\n\r\f]
+ \S A non-whitespace character, [^ \t\n\r\f]
+ \C Match a byte (with Unicode. '.' matches char)
+ \pP Match P-named (Unicode) property
+ \p{...} Match Unicode property with long name
+ \PP Match non-P
+ \P{...} Match lack of Unicode property with long name
+ \X Match extended unicode sequence
+
+POSIX character classes and their Unicode and Perl equivalents:
+
+ alnum IsAlnum Alphanumeric
+ alpha IsAlpha Alphabetic
+ ascii IsASCII Any ASCII char
+ blank IsSpace [ \t] Horizontal whitespace (GNU)
+ cntrl IsCntrl Control characters
+ digit IsDigit \d Digits
+ graph IsGraph Alphanumeric and punctuation
+ lower IsLower Lowercase chars (locale aware)
+ print IsPrint Alphanumeric, punct, and space
+ punct IsPunct Punctuation
+ space IsSpace [\s\ck] Whitespace
+ IsSpacePerl \s Perl's whitespace definition
+ upper IsUpper Uppercase chars (locale aware)
+ word IsWord \w Alphanumeric plus _ (Perl)
+ xdigit IsXDigit [\dA-Fa-f] Hexadecimal digit
+
+Within a character class:
+
+ POSIX traditional Unicode
+ [:digit:] \d \p{IsDigit}
+ [:^digit:] \D \P{IsDigit}
+
+=head2 ANCHORS
+
+All are zero-width assertions.
+
+ ^ Match string start (or line, if /m is used)
+ $ Match string end (or line, if /m is used) or before newline
+ \b Match word boundary (between \w and \W)
+ \B Match except at word boundary
+ \A Match string start (regardless of /m)
+ \Z Match string end (preceding optional newline)
+ \z Match absolute string end
+ \G Match where previous m//g left off
+ \c Suppresses resetting of search position when used with /g.
+ Without \c, search pattern is reset to the beginning of the string
+
+=head2 QUANTIFIERS
+
+Quantifiers are greedy by default --- match the B<longest> leftmost.
+
+ Maximal Minimal Allowed range
+ ------- ------- -------------
+ {n,m} {n,m}? Must occur at least n times but no more than m times
+ {n,} {n,}? Must occur at least n times
+ {n} {n}? Must match exactly n times
+ * *? 0 or more times (same as {0,})
+ + +? 1 or more times (same as {1,})
+ ? ?? 0 or 1 time (same as {0,1})
+
+=head2 EXTENDED CONSTRUCTS
+
+ (?#text) A comment
+ (?imxs-imsx:...) Enable/disable option (as per m//)
+ (?=...) Zero-width positive lookahead assertion
+ (?!...) Zero-width negative lookahead assertion
+ (?<...) Zero-width positive lookbehind assertion
+ (?<!...) Zero-width negative lookbehind assertion
+ (?>...) Grab what we can, prohibit backtracking
+ (?{ code }) Embedded code, return value becomes $^R
+ (??{ code }) Dynamic regex, return value used as regex
+ (?(cond)yes|no) cond being integer corresponding to capturing parens
+ (?(cond)yes) or a lookaround/eval zero-width assertion
+
+=head1 VARIABLES
+
+ $_ Default variable for operators to use
+ $* Enable multiline matching (deprecated; not in 5.8.1+)
+
+ $& Entire matched string
+ $` Everything prior to matched string
+ $' Everything after to matched string
+
+The use of those last three will slow down B<all> regex use
+within your program. Consult L<perlvar> for C<@LAST_MATCH_START>
+to see equivalent expressions that won't cause slow down.
+See also L<Devel::SawAmpersand>.
+
+ $1, $2 ... hold the Xth captured expr
+ $+ Last parenthesized pattern match
+ $^N Holds the most recently closed capture
+ $^R Holds the result of the last (?{...}) expr
+ @- Offsets of starts of groups. [0] holds start of whole match
+ @+ Offsets of ends of groups. [0] holds end of whole match
+
+Capture groups are numbered according to their I<opening> paren.
+
+=head1 FUNCTIONS
+
+ lc Lowercase a string
+ lcfirst Lowercase first char of a string
+ uc Uppercase a string
+ ucfirst Titlecase first char of a string
+ pos Return or set current match position
+ quotemeta Quote metacharacters
+ reset Reset ?pattern? status
+ study Analyze string for optimizing matching
+
+ split Use regex to split a string into parts
+
+=head1 AUTHOR
+
+Iain Truskett.
+
+This document may be distributed under the same terms as Perl itself.
+
+=head1 SEE ALSO
+
+=over 4
+
+=item *
+
+L<perlretut> for a tutorial on regular expressions.
+
+=item *
+
+L<perlrequick> for a rapid tutorial.
+
+=item *
+
+L<perlre> for more details.
+
+=item *
+
+L<perlvar> for details on the variables.
+
+=item *
+
+L<perlop> for details on the operators.
+
+=item *
+
+L<perlfunc> for details on the functions.
+
+=item *
+
+L<perlfaq6> for FAQs on regular expressions.
+
+=item *
+
+The L<re> module to alter behaviour and aid
+debugging.
+
+=item *
+
+L<perldebug/"Debugging regular expressions">
+
+=item *
+
+L<perluniintro>, L<perlunicode>, L<charnames> and L<locale>
+for details on regexes and internationalisation.
+
+=item *
+
+I<Mastering Regular Expressions> by Jeffrey Friedl
+(F<http://regex.info/>) for a thorough grounding and
+reference on the topic.
+
+=back
+
+=head1 THANKS
+
+David P.C. Wollmann,
+Richard Soderberg,
+Sean M. Burke,
+Tom Christiansen,
+Jim Cromie,
+and
+Jeffrey Goff
+for useful advice.
==== //depot/maint-5.8/perl/pod/perltoc.pod#9 (text+w) ====
Index: perl/pod/perltoc.pod
--- perl/pod/perltoc.pod#8~20428~ Fri Aug 1 05:48:03 2003
+++ perl/pod/perltoc.pod Sun Aug 10 11:29:12 2003
@@ -1345,6 +1345,42 @@
=back
+=head2 perlreref - Perl Regular Expressions Reference
+
+=over 4
+
+=item DESCRIPTION
+
+=item OPERATORS
+
+=item SYNTAX
+
+=over 4
+
+=item ESCAPE SEQUENCES
+
+=item CHARACTER CLASSES
+
+=item ANCHORS
+
+=item QUANTIFIERS
+
+=item EXTENDED CONSTRUCTS
+
+=back
+
+=item VARIABLES
+
+=item FUNCTIONS
+
+=item AUTHOR
+
+=item SEE ALSO
+
+=item THANKS
+
+=back
+
=head2 perlref - Perl references and nested data structures
=over 4
@@ -1905,8 +1941,6 @@
=back
-=item Native threads
-
=item What kind of threads are Perl threads?
=item Thread-Safe Modules
@@ -1921,8 +1955,6 @@
=item Creating Threads
-=item Giving up control
-
=item Waiting For A Thread To Exit
=item Ignoring A Thread
@@ -1957,6 +1989,8 @@
=item cond_wait() and cond_signal()
+=item Giving up control
+
=back
=item General Thread Utility Routines
@@ -1975,6 +2009,8 @@
=item A Complete Example
+=item Different implementations of threads
+
=item Performance considerations
=item Process-scope Changes
@@ -2677,23 +2713,23 @@
AnyDBM_File, Attribute::Handlers, AutoLoader, AutoSplit, B, B::Asmdata,
B::Assembler, B::Bblock, B::Bytecode, B::C, B::CC, B::Concise, B::Debug,
B::Deparse, B::Disassembler, B::Lint, B::Showlex, B::Stackobj, B::Stash,
-B::Terse, B::Xref, Benchmark, CGI, CGI::Apache, CGI::Carp, CGI::Cookie,
-CGI::Fast, CGI::Pretty, CGI::Push, CGI::Switch, CGI::Util, CPAN,
-CPAN::FirstTime, CPAN::Nox, Carp, Carp::Heavy, Class::ISA, Class::Struct,
-Config, Cwd, DB, DB_File, Data::Dumper, Devel::DProf, Devel::PPPort,
-Devel::Peek, Devel::SelfStubber, Digest, Digest::MD5, DirHandle, Dumpvalue,
-DynaLoader, Encode, Encode::Alias, Encode::Byte, Encode::CJKConstants,
-Encode::CN, Encode::CN::HZ, Encode::Config, Encode::EBCDIC,
-Encode::Encoder, Encode::Encoding, Encode::Guess, Encode::JP,
-Encode::JP::H2Z, Encode::JP::JIS7, Encode::KR, Encode::KR::2022_KR,
-Encode::MIME::Header, Encode::PerlIO, Encode::Supported, Encode::Symbol,
-Encode::TW, Encode::Unicode, Encode::Unicode::UTF7, English, Env, Errno,
-Exporter, Exporter::Heavy, ExtUtils::Command, ExtUtils::Command::MM,
-ExtUtils::Constant, ExtUtils::Embed, ExtUtils::Install,
-ExtUtils::Installed, ExtUtils::Liblist, ExtUtils::MM, ExtUtils::MM_Any,
-ExtUtils::MM_BeOS, ExtUtils::MM_Cygwin, ExtUtils::MM_DOS,
-ExtUtils::MM_MacOS, ExtUtils::MM_NW5, ExtUtils::MM_OS2, ExtUtils::MM_UWIN,
-ExtUtils::MM_Unix, ExtUtils::MM_VMS, ExtUtils::MM_Win32,
+B::Terse, B::Xref, Benchmark, ByteLoader, CGI, CGI::Apache, CGI::Carp,
+CGI::Cookie, CGI::Fast, CGI::Pretty, CGI::Push, CGI::Switch, CGI::Util,
+CPAN, CPAN::FirstTime, CPAN::Nox, Carp, Carp::Heavy, Class::ISA,
+Class::Struct, Config, Cwd, DB, DB_File, Data::Dumper, Devel::DProf,
+Devel::PPPort, Devel::Peek, Devel::SelfStubber, Digest, Digest::MD5,
+DirHandle, Dumpvalue, DynaLoader, Encode, Encode::Alias, Encode::Byte,
+Encode::CJKConstants, Encode::CN, Encode::CN::HZ, Encode::Config,
+Encode::EBCDIC, Encode::Encoder, Encode::Encoding, Encode::Guess,
+Encode::JP, Encode::JP::H2Z, Encode::JP::JIS7, Encode::KR,
+Encode::KR::2022_KR, Encode::MIME::Header, Encode::PerlIO,
+Encode::Supported, Encode::Symbol, Encode::TW, Encode::Unicode,
+Encode::Unicode::UTF7, English, Env, Errno, Exporter, Exporter::Heavy,
+ExtUtils::Command, ExtUtils::Command::MM, ExtUtils::Constant,
+ExtUtils::Embed, ExtUtils::Install, ExtUtils::Installed, ExtUtils::Liblist,
+ExtUtils::MM, ExtUtils::MM_Any, ExtUtils::MM_BeOS, ExtUtils::MM_Cygwin,
+ExtUtils::MM_DOS, ExtUtils::MM_MacOS, ExtUtils::MM_NW5, ExtUtils::MM_OS2,
+ExtUtils::MM_UWIN, ExtUtils::MM_Unix, ExtUtils::MM_VMS, ExtUtils::MM_Win32,
ExtUtils::MM_Win95, ExtUtils::MY, ExtUtils::MakeMaker,
ExtUtils::MakeMaker::FAQ, ExtUtils::MakeMaker::Tutorial,
ExtUtils::MakeMaker::bytes, ExtUtils::MakeMaker::vmsish,
@@ -2994,8 +3030,8 @@
=back
-=head2 perlfaq2 - Obtaining and Learning about Perl ($Revision: 1.20 $,
-$Date: 2003/01/26 17:50:56 $)
+=head2 perlfaq2 - Obtaining and Learning about Perl ($Revision: 1.21 $,
+$Date: 2003/07/30 05:48:24 $)
=over 4
@@ -4790,6 +4826,8 @@
=item Implementing PerlIO Layers
+C implementations, Perl implementations
+
=item Core Layers
"unix", "perlio", "stdio", "crlf", "mmap", "pending", "raw", "utf8"
@@ -12973,7 +13011,7 @@
special_targets
-POD2MAN_EXE_macro
+POD2MAN_macro
test_via_harness
@@ -20249,8 +20287,9 @@
gettimeofday (), usleep ( $useconds ), ualarm ( $useconds [,
$interval_useconds ] ), tv_interval, time (), sleep ( $floating_seconds ),
-alarm ( $floating_seconds [, $interval_floating_seconds ] ), setitimer,
-getitimer ( $which )
+alarm ( $floating_seconds [, $interval_floating_seconds ] ), setitimer (
+$which, $floating_seconds [, $interval_floating_seconds ] ), getitimer (
+$which )
=item EXAMPLES
==== //depot/maint-5.8/perl/t/lib/1_compile.t#2 (text) ====
Index: perl/t/lib/1_compile.t
--- perl/t/lib/1_compile.t#1~17645~ Fri Jul 19 12:29:57 2002
+++ perl/t/lib/1_compile.t Sun Aug 10 11:29:12 2003
@@ -70,12 +70,6 @@
B::CC
B::Stackobj
ByteLoader
-CPAN
CPAN::FirstTime
DynaLoader
-ExtUtils::MM_NW5
-ExtUtils::Install
-ExtUtils::Liblist
-ExtUtils::Mksymlists
Pod::Plainer
-Test::Harness::Iterator
==== //depot/maint-5.8/perl/t/op/closure.t#6 (xtext) ====
Index: perl/t/op/closure.t
--- perl/t/op/closure.t#5~19951~ Thu Jul 3 01:47:35 2003
+++ perl/t/op/closure.t Sun Aug 10 11:29:12 2003
@@ -13,7 +13,7 @@
use Config;
-print "1..181\n";
+print "1..185\n";
my $test = 1;
sub test (&) {
@@ -604,3 +604,30 @@
linger(\$watch);
test { $watch eq '12' }
}
+
+SKIP: { skip("tests not in maint because change #19637 not applied", 4) }
+
+# bugid #23265 - this used to coredump during destruction of PL_maincv
+# and its children
+
+require './test.pl';
+
+my $got = runperl(
+ prog => q[
+ print
+ sub {$_[0]->(@_)} -> (
+ sub {
+ $_[1]
+ ? $_[0]->($_[0], $_[1] - 1) . sub {"x"}->()
+ : "y"
+ },
+ 2
+ )
+ , "\n"
+ ;
+
+ ],
+ stderr => 1
+);
+test { $got eq "yxx\n" };
+
End of Patch.
