This is a live mirror of the Perl 5 development currently hosted at
12 years agoregcomp.c: Remove duplicate statement
Karl Williamson [Tue, 30 Nov 2010 21:02:08 +0000 (14:02 -0700)]
regcomp.c: Remove duplicate statement

The flags this statement cleared are cleared as part of the macro called
just before it.

12 years ago[perl #64792] Document $? in perlfunc/exit
Father Chrysostomos [Wed, 1 Dec 2010 22:44:01 +0000 (14:44 -0800)]
[perl #64792] Document $? in perlfunc/exit

12 years agoUpgrade if from version 0.06 to 0.0601
Florian Ragwitz [Wed, 1 Dec 2010 16:19:10 +0000 (17:19 +0100)]
Upgrade if from version 0.06 to 0.0601

12 years agoFix compiler warning in hv.c on MSWin32
Jerry D. Hedden [Wed, 1 Dec 2010 15:32:34 +0000 (10:32 -0500)]
Fix compiler warning in hv.c on MSWin32

Fixes the following seen in a Steve Hay smoke test:

Compiler messages(MSWin32):
..\hv.c(1646) : warning C4244: 'initializing' : conversion from 'unsigned long ' to 'const char ', possible loss of data

12 years agoFix uninit compiler warning in mro.c
Jerry D. Hedden [Wed, 1 Dec 2010 14:51:43 +0000 (09:51 -0500)]
Fix uninit compiler warning in mro.c

12 years agoperldelta up to 6b7c6d959
Father Chrysostomos [Wed, 1 Dec 2010 13:47:01 +0000 (05:47 -0800)]
perldelta up to 6b7c6d959

12 years agoperldelta for [perl #68654]
Father Chrysostomos [Wed, 1 Dec 2010 13:33:45 +0000 (05:33 -0800)]
perldelta for [perl #68654]

12 years ago++substr $mro'VERSION, -1
Father Chrysostomos [Wed, 1 Dec 2010 06:36:52 +0000 (22:36 -0800)]
++substr $mro'VERSION, -1

12 years ago[perl #68654] next::method doesn't see UNIVERSAL
Father Chrysostomos [Wed, 1 Dec 2010 06:35:16 +0000 (22:35 -0800)]
[perl #68654] next::method doesn't see UNIVERSAL

This commit makes next::method retry with UNIVERSAL if it reaches the
end of the MRO list.

12 years agoMake next_edgecases.t easier to deal with
Father Chrysostomos [Wed, 1 Dec 2010 06:31:41 +0000 (22:31 -0800)]
Make next_edgecases.t easier to deal with

This makes ./perl -Ilib t/mro/next_edgecases.t work and also
allows test functions to be called without parentheses.

12 years agoAvoid two compiler warnings in B::cstring, spotted by Steve Hay's smoker.
Nicholas Clark [Wed, 1 Dec 2010 10:23:27 +0000 (10:23 +0000)]
Avoid two compiler warnings in B::cstring, spotted by Steve Hay's smoker.

12 years agoUpdate for the CPAN'd version of Module-CoreList
Chris 'BinGOs' Williams [Wed, 1 Dec 2010 10:29:59 +0000 (10:29 +0000)]
Update for the CPAN'd version of Module-CoreList

12 years agoFix B test failure introduced in 6b7c6d9
Florian Ragwitz [Wed, 1 Dec 2010 10:08:16 +0000 (11:08 +0100)]
Fix B test failure introduced in 6b7c6d9

12 years agoperldelta up to 779bcb7d
Father Chrysostomos [Wed, 1 Dec 2010 05:32:38 +0000 (21:32 -0800)]
perldelta up to 779bcb7d

12 years agoSkip t/io/eintr.t on Cygwin, too - hangs
Jerry D. Hedden [Tue, 30 Nov 2010 23:22:35 +0000 (18:22 -0500)]
Skip t/io/eintr.t on Cygwin, too - hangs

12 years agoFix memory leak in hfreeentries
Father Chrysostomos [Tue, 30 Nov 2010 23:53:16 +0000 (15:53 -0800)]
Fix memory leak in hfreeentries

The change that made hfreeentries keep the name in place when iterat-
ing (2d0d1ecc) caused this statement at the end of the loop to be a
no-op for named hashes, because the HvARRAY is always present at the
end of the loop (it contains the name):

if (!HvARRAY(hv)) {
    /* Good. No-one added anything this time round.  */

So this line was added (by the same change) before the freeing of the
linked lists:

/* If there are no keys, there is nothing left to free. */
if (!((XPVHV*) SvANY(hv))->xhv_keys) break;

But that means that this, immediately after the freeing of the linked
lists and just before the if(!HvARRAY(hv)):

if (array != orig_array) {

was not being reached, resulting in a memory leak (that Nicholas
Clark found).

This is what would happen:

On entering hfreeentries, orig_array would be assigned the value

   HvARRAY    = original array
   orig_array = original array

Then the main loop would be entered, which would assign
HvARRAY to array:

   HvARRAY    = original array
   orig_array = original array
   array      = original array

HvARRAY would be nulled out and assigned a new value by hv_auxinit:

   HvARRAY    = first new array
   orig_array = original array
   array      = original array

Then the loop would repeat:

   HvARRAY    = first new array
   orig_array = original array
   array      = first new array

Then the HvARRAY would once more be nulled and replaced via

   HvARRAY    = second new array
   orig_array = original array
   array      = first new array

Then the if(no keys)break; statement would be reached, exit-
ing the loop:

   HvARRAY    = second new array
   orig_array = original array
   <nothing>  = first new array

So the first new array is never freed.

This commit skips the allocation of an extra array at the beginning of
the loop if there are no keys. Then it exits early at the same spot.

12 years agoperldelta for mg_findext and sv_unmagicext
Florian Ragwitz [Tue, 30 Nov 2010 16:49:27 +0000 (17:49 +0100)]
perldelta for mg_findext and sv_unmagicext

12 years agoSuppress warning from t/op/attrs.t
Father Chrysostomos [Tue, 30 Nov 2010 16:33:50 +0000 (08:33 -0800)]
Suppress warning from t/op/attrs.t

12 years ago[perl #77762] Constant assignment warning
Father Chrysostomos [Tue, 30 Nov 2010 13:54:23 +0000 (05:54 -0800)]
[perl #77762] Constant assignment warning

With this patch:

$ ./perl -we 'sub A () {1}; if (0) {my $foo = A or die}'
$ ./perl -we 'sub A () {1}; if (0) {my $foo = 1 or die}'
Found = in conditional, should be == at -e line 1.

Since the value of a constant may not be known at the time the program
is written, it should be perfectly acceptable to do a constant assign-
ment in a conditional.

12 years agoRestore building Encode's subextensions for a static build.
Nicholas Clark [Tue, 30 Nov 2010 15:51:10 +0000 (15:51 +0000)]
Restore building Encode's subextensions for a static build.

The special-casing in Configure still referred to ext/Encode, so likely this
was broken when Encode moved to cpan/

Fixes #79494, reported by Marc Lehmann.

12 years agoIn S_scan_const(), use my_snprintf() instead of my_sprintf().
Nicholas Clark [Tue, 30 Nov 2010 13:16:11 +0000 (13:16 +0000)]
In S_scan_const(), use my_snprintf() instead of my_sprintf().

Paranoid linkers warn about using sprintf(), and rightly so.

12 years agoUse ' to avoid interpolation
Father Chrysostomos [Tue, 30 Nov 2010 13:01:25 +0000 (05:01 -0800)]
Use ' to avoid interpolation

12 years ago[perl #79152] super-linear cache can prevent a valid match
Nick Cleaton [Tue, 30 Nov 2010 06:26:43 +0000 (22:26 -0800)]
[perl #79152] super-linear cache can prevent a valid match

The super-linear cache in regexec.c can prevent a valid match
from being detected. For example:

print "yay\n" if 'xayxay' =~ /(q1|.)*(q2|.)*(x(a|bc)*y){2,}/;

This should match, but it doesn't because the cache fails to
distinguish between matching the final xay to x(a|bc)*y as the
first instance of the {2,} and matching it in the same position
as the second instance.

This seems to do the trick.

12 years agoSpelling: reminder -> remainder
Peter John Acklam [Mon, 29 Nov 2010 15:00:07 +0000 (16:00 +0100)]
Spelling: reminder -> remainder

12 years agoUpdate perlguts for sv_unmagicext and mg_findext
Florian Ragwitz [Thu, 25 Nov 2010 01:53:40 +0000 (02:53 +0100)]
Update perlguts for sv_unmagicext and mg_findext

12 years agoAdd tests for sv_{,un}magicext and mg_findext
Florian Ragwitz [Thu, 25 Nov 2010 01:40:16 +0000 (02:40 +0100)]
Add tests for sv_{,un}magicext and mg_findext

12 years agoAdd mg_findext
Florian Ragwitz [Thu, 25 Nov 2010 01:40:00 +0000 (02:40 +0100)]
Add mg_findext

12 years agoAdd sv_unmagicext
Florian Ragwitz [Thu, 25 Nov 2010 00:06:27 +0000 (01:06 +0100)]
Add sv_unmagicext

12 years agoEliminate strlen and strEQ usage in gv_fetchmethod
Florian Ragwitz [Tue, 30 Nov 2010 09:24:26 +0000 (10:24 +0100)]
Eliminate strlen and strEQ usage in gv_fetchmethod

This commit brought to you with the aid of the campaign for elimination of

12 years agoAnother oops.
Father Chrysostomos [Tue, 30 Nov 2010 06:23:12 +0000 (22:23 -0800)]
Another oops.

Something else changed unnecessarily by 541ed3a9. I really oughtn’t do
this when I’ve been awake for more than 18 hours....

12 years agoOops.
Father Chrysostomos [Tue, 30 Nov 2010 05:56:25 +0000 (21:56 -0800)]

That was part of my first attempt to fix [perl #68560]. I forgot to
delete it. (It’s harmless.)

12 years agoperldelta entry for [perl #68560]
Father Chrysostomos [Tue, 30 Nov 2010 05:50:59 +0000 (21:50 -0800)]
perldelta entry for [perl #68560]

12 years ago[perl #68560] calling closure prototype SEGVs
Father Chrysostomos [Tue, 30 Nov 2010 05:43:52 +0000 (21:43 -0800)]
[perl #68560] calling closure prototype SEGVs

When a closure is created, the original sub is cloned (except that the
op tree is shared). That original sub (called the closure prototype)
is not usually accessible to perl.

An attribute handler (MODIFY_CODE_ATTRIBUTES) is passed a reference
to it, however. If that code reference is called within the attribute
handler, an ‘Undefined subroutine called’ error results, because the
op tree has not been attached yet.

If that code reference is stashed away and called after the attribute
handler returns, it will most likely crash.

This is because its pad is full of nulls.

A regular $proto->() or &$proto() call that sets up @_ will crash in
attempting to do so.

A &$proto call will bypass that, but attempting to read any lexical
variables from the containing scope will cause a crash. Any operator
that uses TARG (i.e., most of them) will crash.

So this commit puts a check for closure prototypes in pp_entersub. It
produces a new error message, ‘Closure prototype called’.

This does introduce a backward-incompatible change: code like this
used to work:

 sub MODIFY_CODE_ATTRIBUTES { $'proto = $_[1] }
 { my $x; () = sub :attr { () = $x; print "hello\n" } }

But writing a useful subroutine that tiptoes past the crashes is so
difficult that I think this breakage is acceptable.

12 years agoUse default stack size on Windows
Jan Dubois [Tue, 30 Nov 2010 01:10:02 +0000 (17:10 -0800)]
Use default stack size on Windows

Perl used to request 16MB of stack instead of the default 1MB (when
compiling with VC++).  I believe this was done to accomodate the
recursive nature of the regex engine, which is no longer a concern
since 5.10.  The requested stack size will be reserved for each
thread created by the process, not just for the main thread.

Note also that we don't explicitly specify the stack size when
compiling with GCC on Windows (MinGW), which reserves a stack size of
2MB by default.

12 years agoChange the default for usemymalloc to 'n' for NetBSD
Chris 'BinGOs' Williams [Mon, 29 Nov 2010 22:14:25 +0000 (22:14 +0000)]
Change the default for usemymalloc to 'n' for NetBSD

It should not be the default, it isn't the default when perl is
built in pkgsrc and from personal experience using perl's malloc
as the default is to enter a world of pain and suffering.

12 years agoFilehandle method calls load IO::File on demand
David Golden [Mon, 29 Nov 2010 04:12:12 +0000 (23:12 -0500)]
Filehandle method calls load IO::File on demand

When a method call on a filehandle would die because the method can not
be resolved and L<IO::File> has not been loaded, Perl now loads IO::File
via C<require> and attempts method resolution again:

  open my $fh, ">", $file;
  $fh->binmode(":raw");     # loads IO::File and succeeds

This also works for globs like STDOUT, STDERR and STDIN:


Because this on-demand load only happens if method resolution fails, the
legacy approach of manually loading an IO::File parent class for partial
method support still works as expected:

  use IO::Handle;
  open my $fh, ">", $file;
  $fh->autoflush(1);        # IO::File not loaded

12 years agoFollowing fbcaf61123069fe4, remove perlmain.c from the initial list of C files.
Nicholas Clark [Mon, 29 Nov 2010 19:19:21 +0000 (19:19 +0000)]
Following fbcaf61123069fe4, remove perlmain.c from the initial list of C files.

Otherwise miniperl gets built by ./makedepend, as it calls `make clist`,
clist depends on the initial list of C files, and perlmain.c has rules to
(re)build it which depend on miniperl.

There is no dependency problem with removing perlmain.c from the list of C
files, and hence the list of files for which makefile dependency rules are
generated, as its (new) dependency on miniperl means that it will always be
rebuilt if miniperl is rebuilt, and in turn miniperl will always be rebuilt
it miniperlmain.o is out of date. perlmain.o has the same dependencies as
miniperlmain.o, so the requirement to rebuild is always satisfied.

Thanks to Florian Ragwitz for spotting this problem.

12 years agoFix a typo in perlmod
Florian Ragwitz [Mon, 29 Nov 2010 18:37:25 +0000 (19:37 +0100)]
Fix a typo in perlmod

12 years agoUpgrade Memoize from version 1.01_03 to 1.02
Florian Ragwitz [Mon, 29 Nov 2010 17:43:06 +0000 (18:43 +0100)]
Upgrade Memoize from version 1.01_03 to 1.02

12 years agoAdd a verbose option to -DP, and replace C<#if 0> blocks in sv_gets() with it.
Nicholas Clark [Mon, 29 Nov 2010 15:17:54 +0000 (15:17 +0000)]
Add a verbose option to -DP, and replace C<#if 0> blocks in sv_gets() with it.

12 years agoIn Perl_sv_gets(), shortbuffered is always 0 when rslen is 0.
Nicholas Clark [Mon, 29 Nov 2010 14:13:03 +0000 (14:13 +0000)]
In Perl_sv_gets(), shortbuffered is always 0 when rslen is 0.

Hence we can jump past the test C<if (shortbuffered)> after the "this screams
louder" block, as that is only reached where rslen is 0.

12 years agoperldelta entry for [perl #63540]
Father Chrysostomos [Mon, 29 Nov 2010 14:09:37 +0000 (06:09 -0800)]
perldelta entry for [perl #63540]

12 years ago[perl #63540] bizarre closure lossage
Father Chrysostomos [Mon, 29 Nov 2010 14:05:35 +0000 (06:05 -0800)]
[perl #63540] bizarre closure lossage

main::b in this example shows a null op that has the if() statement
attached to it.

$ perl -MO=Concise,a,b -e 'my $x;sub a {$x}; sub b{if($x){}0}'
3  <1> leavesub[1 ref] K/REFC,1 ->(end)
-     <@> lineseq KP ->3
1        <;> nextstate(main 2 -e:1) v ->2
2        <0> padsv[$x:FAKE:] ->3
a  <1> leavesub[1 ref] K/REFC,1 ->(end)
-     <@> lineseq KP ->a
4        <;> nextstate(main 5 -e:1) v ->5
-        <1> null vK/1 ->8
6           <|> and(other->7) vK/1 ->8
5              <0> padsv[$x:FAKE:] s ->6
-              <@> scope vK ->-
7                 <0> stub v ->8
8        <;> nextstate(main 5 -e:1) v ->9
9        <$> const[IV 0] s ->a
-e syntax OK

Perl_op_const_sv has:

    if (type == OP_NEXTSTATE || type == OP_NULL || type == OP_PUSHMARK)

It traverses from the null to the const. The const’s op_next pointer
points to the leavesub, so it is taken to be a constant.

It returns to newATTRSUB, which turns on CvCONST without assigning a
constant value.

Later, cv_clone (called by pp_anoncode) calls op_const_sv again. The
latter returns the SV from the first PADSV it finds, which is the $x
in if($x).

This commit stops op_const_sv from skipping over null ops that
have children.

12 years agoBreak out code from Perl_sv_gets() which is self contained and exits directly.
Nicholas Clark [Mon, 29 Nov 2010 11:41:21 +0000 (11:41 +0000)]
Break out code from Perl_sv_gets() which is self contained and exits directly.

Previously the code for handling fixed length records, and appending from a
non-UTF-8 handle to a UTF-8 scalar, was handled in two blocks in Perl_sv_gets()
which exited via a goto to the last statement of Perl_sv_gets(). By breaking
them out into separate static functions, the control flow becomes clearer.

12 years agoFix C++ build problems introduced in 9a5a5549
Tony Cook [Mon, 29 Nov 2010 11:36:35 +0000 (22:36 +1100)]
Fix C++ build problems introduced in 9a5a5549

Fixes the following compilation errors:
regexec.c: In function 'char* S_find_byclass(regexp*, const regnode*, char*,
const char*, regmatch_info*)':
regexec.c:1525: error: invalid conversion from 'I32 (*)(const char*, const
char*, I32)' to 'I32 (*)()'
regexec.c:1525: error: too many arguments to function
regexec.c:1527: error: invalid conversion from 'I32 (*)(const char*, const
char*, I32)' to 'I32 (*)()'
regexec.c:1527: error: too many arguments to function

12 years agodocument why eintr.t needs to be skipped on Win32
David Mitchell [Mon, 29 Nov 2010 11:23:28 +0000 (11:23 +0000)]
document why eintr.t needs to be skipped on Win32

12 years agoin perlipc, 'named pipes' was in signals section
David Mitchell [Mon, 29 Nov 2010 10:36:19 +0000 (10:36 +0000)]
in perlipc, 'named pipes' was in signals section

Move the '=head1 Named Pipes' section down so that it's no longer nested,
cuckoo-like, in the middle of the '=head1 Signals' section.

12 years agoperldelta: The last few commits are not noteworthy
Father Chrysostomos [Sun, 28 Nov 2010 22:10:44 +0000 (14:10 -0800)]
perldelta: The last few commits are not noteworthy

except for one that already has an entry.

12 years agoperldelta for 94a75ecf
Father Chrysostomos [Sun, 28 Nov 2010 22:01:21 +0000 (14:01 -0800)]
perldelta for 94a75ecf

12 years ago[perl #79914] documentation bug in perldoc perlvar $|
Lukas Mai [Mon, 29 Nov 2010 05:56:44 +0000 (21:56 -0800)]
[perl #79914] documentation bug in perldoc perlvar $|

12 years agoAUTHORS: e-mail addr for Lukas Mai
Father Chrysostomos [Mon, 29 Nov 2010 05:56:37 +0000 (21:56 -0800)]
AUTHORS: e-mail addr for Lukas Mai

12 years agoMake vms/ go the way of writemain.SH.
Craig A. Berry [Sun, 28 Nov 2010 22:49:23 +0000 (16:49 -0600)]
Make vms/ go the way of writemain.SH.

Follow-up to fbcaf61123069fe46010699dd41ca5f60f448361 at Nicholas's

12 years agoCorrect a copy&pasto - := is now an error, and no longer a warning.
Nicholas Clark [Sun, 28 Nov 2010 21:45:22 +0000 (21:45 +0000)]
Correct a copy&pasto - := is now an error, and no longer a warning.

12 years agoperldelta for d54f8cf785
Father Chrysostomos [Sun, 28 Nov 2010 20:43:03 +0000 (12:43 -0800)]
perldelta for d54f8cf785

12 years agoMake my $pi := 4; a syntax error.
Nicholas Clark [Fri, 26 Nov 2010 15:53:56 +0000 (15:53 +0000)]
Make my $pi := 4; a syntax error.

Previously it interpreted := as an empty attribute list, and issued a
deprecation warning. This change permits := to be used as a binding operator.

12 years agoperldelta for 75f5d3312
Father Chrysostomos [Sun, 28 Nov 2010 19:05:29 +0000 (11:05 -0800)]
perldelta for 75f5d3312

12 years agoperlfaq5: How do I make a temporary file name?
brian d foy [Sun, 28 Nov 2010 19:35:43 +0000 (13:35 -0600)]
perlfaq5: How do I make a temporary file name?

     Fixed up a half-completed change from typeglobs to lexical

12 years agoRemove makeaperl, never used, a wrapper for ExtUtils::MakeMaker::makeaperl
Nicholas Clark [Sun, 28 Nov 2010 19:03:21 +0000 (19:03 +0000)]
Remove makeaperl, never used, a wrapper for ExtUtils::MakeMaker::makeaperl

makeaperl was added in perl5.000k, wrapped as makeaperl.SH in perl5.000l, but
neither used in the core build nor installed. All it does is acts as a
command-line wrapper to makeaperl() in ExtUtils::MakeMaker.

12 years ago++substr $re::VERSION, -1
Father Chrysostomos [Sun, 28 Nov 2010 18:54:49 +0000 (10:54 -0800)]
++substr $re::VERSION, -1

12 years agoTiny pod fix
Andreas J. Koenig [Sun, 28 Nov 2010 18:53:39 +0000 (10:53 -0800)]
Tiny pod fix

12 years agoperldelta up to 8e747b69
Father Chrysostomos [Sun, 28 Nov 2010 18:48:45 +0000 (10:48 -0800)]
perldelta up to 8e747b69

12 years agodisable t/io/eintr.t on windows
David Mitchell [Sun, 28 Nov 2010 18:33:51 +0000 (18:33 +0000)]
disable t/io/eintr.t on windows

Apperently it's causing smokers to hang, so skip until
I find out what's happening.

12 years agoGenerate perlmain.c using ExtUtils::Miniperl, instead of writemain.SH.
Nicholas Clark [Sun, 28 Nov 2010 17:15:58 +0000 (17:15 +0000)]
Generate perlmain.c using ExtUtils::Miniperl, instead of writemain.SH.

This allows writemain.SH to be removed. This also has the side effect of testing
that ExtUtils::Miniperl actually works. :-)

12 years agoSkip eintr.t on VMS.
Craig A. Berry [Sun, 28 Nov 2010 15:59:25 +0000 (09:59 -0600)]
Skip eintr.t on VMS.

It's doing select() on a pipe, but only sockets work with select(),
and the read() on a pipe is not interruptible by an alarm.  That's
probably because our pipe implementation is doing mailbox reads at
AST level but the alarm signal is also an AST and can't interrupt
another AST at the same mode.

12 years agoProper Makefile dependencies for the x2p/s2p rule.
Nicholas Clark [Sun, 28 Nov 2010 15:52:58 +0000 (15:52 +0000)]
Proper Makefile dependencies for the x2p/s2p rule.

Without this, a parallel make for a static build can fail, as x2p/Makefile
uses ../perl for a static build, but there was no rule to ensure that ../perl
was built.

A static build currently still fails some tests, I think because Encode doesn't
link all encodings staticly.

12 years agoRevert "Configure has a path to less and can use it"
Rafael Garcia-Suarez [Sun, 28 Nov 2010 14:01:24 +0000 (15:01 +0100)]
Revert "Configure has a path to less and can use it"

This reverts commit bf320d637919b3a2a72298748aa76e686e9b3e45.
Andy Dougherty points out that after Configure has run, the "less"
config variable is no longer useful, as described in Porting/Glossary.

12 years agoreg_fold.t: Add tests for simple Latin1 folds
Karl Williamson [Sun, 28 Nov 2010 05:14:05 +0000 (22:14 -0700)]
reg_fold.t: Add tests for simple Latin1 folds

fold_grind.t does a comprehensive series of tests, but it doesn't test
most characters, just a representative sample.  Add tests to reg_fold.t
to verify that the basic mapping tables work.

12 years agoreg_fold.t: Disable single char fold testing
Karl Williamson [Sun, 28 Nov 2010 05:12:13 +0000 (22:12 -0700)]
reg_fold.t: Disable single char fold testing

This is now more comprehensively done by fold_grind.t

12 years agofold_grind.t: Enable EXACTish tests
Karl Williamson [Sun, 28 Nov 2010 05:10:35 +0000 (22:10 -0700)]
fold_grind.t: Enable EXACTish tests

12 years Add native to uni ord fcns
Karl Williamson [Sun, 28 Nov 2010 05:08:57 +0000 (22:08 -0700)] Add native to uni ord fcns

12 years agoregcomp.c: Handle EXACTFU nodes in optimizer
Karl Williamson [Sun, 28 Nov 2010 04:16:51 +0000 (21:16 -0700)]
regcomp.c: Handle EXACTFU nodes in optimizer

This patch also changes the optimizer to include the other member of a
fold pair in the bitmap.  Thus if 'b' is set under /i, so will 'B', and
vice versa.

12 years agoregcomp.c: Use hex instead of octal for debug ords
Karl Williamson [Sun, 28 Nov 2010 03:51:54 +0000 (20:51 -0700)]
regcomp.c: Use hex instead of octal for debug ords

The ordinals that are output in the debugging output have been in octal,
which is ok for the low controls, but for above Latin1, the standard is
hex, so this changes them all to correspond.  If desired the low
controls could be changed back to be in octal.

12 years agoFix debug output
Karl Williamson [Sun, 28 Nov 2010 03:49:49 +0000 (20:49 -0700)]
Fix debug output

The 'outside bitmap' message isn't orthogonal to the others, it is

12 years agoregcomp.c: Typo in comment
Karl Williamson [Sun, 28 Nov 2010 03:45:33 +0000 (20:45 -0700)]
regcomp.c: Typo in comment

12 years agoregcomp.c: Generate EXACTFU nodes
Karl Williamson [Sun, 28 Nov 2010 03:37:05 +0000 (20:37 -0700)]
regcomp.c: Generate EXACTFU nodes

12 years agoregcomp.c: remove unnecessary tests
Karl Williamson [Sun, 28 Nov 2010 02:40:58 +0000 (19:40 -0700)]
regcomp.c: remove unnecessary tests

The tests in the else are unnecessary as they comprise everything else
but what the 'if' says.

12 years agoregexec.c: Add handling for EXACTFU nodes
Karl Williamson [Sat, 27 Nov 2010 22:26:31 +0000 (15:26 -0700)]
regexec.c: Add handling for EXACTFU nodes

A later commit will cause these nodes to be generated.

This commit changes how to find the handling of the various nodes to
switch statements, hopefully for efficiency.

12 years agoregexec.c: pull array lookup out of loop
Karl Williamson [Sat, 27 Nov 2010 22:19:31 +0000 (15:19 -0700)]
regexec.c: pull array lookup out of loop

12 years agoutf8.h: Add #define for Greek small MU
Karl Williamson [Sat, 27 Nov 2010 22:16:47 +0000 (15:16 -0700)]
utf8.h: Add #define for Greek small MU

12 years agoregexec.c: clarify comments
Karl Williamson [Sat, 27 Nov 2010 22:08:34 +0000 (15:08 -0700)]
regexec.c: clarify comments

12 years agoregcomp.sym: Add EXACTFU regnode
Karl Williamson [Sat, 27 Nov 2010 17:57:01 +0000 (10:57 -0700)]
regcomp.sym: Add EXACTFU regnode

This node will be used for matching case insensitive exactish nodes
using Unicode semantics

12 years agoregexec.c: Latin1 chars can fold match UTF8_ALL
Karl Williamson [Sat, 27 Nov 2010 17:26:01 +0000 (10:26 -0700)]
regexec.c: Latin1 chars can fold match UTF8_ALL

Some ANYOF regnodes have the ANYOF_UNICODE_ALL flag set, which means
they match any non-Latin1 character.  These should match /i (in a utf8
target string) any ASCII or Latin1 character that folds outside the
Latin1 range

As part of this patch, an internal only macro is renamed to account for its
new use in regexec.c.  The cumbersome name is to ward off others from
using it until the final semantics have been settled on.

12 years agofold_grind.t: Make unicode semantics pattern differently
Karl Williamson [Sat, 27 Nov 2010 17:10:52 +0000 (10:10 -0700)]
fold_grind.t: Make unicode semantics pattern differently

This changes to use 'use re "/u"' to specify that a pattern is supposed
to match with unicode semantics, instead of upgrading it to utf8.  The
variable name changes accordingly

12 years agoAdd Perl_foldEQ_latin1()
Karl Williamson [Sat, 27 Nov 2010 16:42:48 +0000 (09:42 -0700)]
Add Perl_foldEQ_latin1()

This function compares two non-utf8 strings to see if they are
equivalent without regards to case differences.  It does not work nor
check for  three problematic code points that require special handling:

make regen required

12 years agoperldelta for 04698ff
Father Chrysostomos [Sun, 28 Nov 2010 07:52:44 +0000 (23:52 -0800)]
perldelta for 04698ff

12 years agoperldelta up to a51ee39b
Father Chrysostomos [Sun, 28 Nov 2010 07:46:26 +0000 (23:46 -0800)]
perldelta up to a51ee39b

12 years agoperldelta up to abf9167d
Father Chrysostomos [Sun, 28 Nov 2010 07:38:43 +0000 (23:38 -0800)]
perldelta up to abf9167d

12 years agoBring core Perl in line with CPAN 0.86 release
John Peacock [Sun, 28 Nov 2010 06:05:41 +0000 (22:05 -0800)]
Bring core Perl in line with CPAN 0.86 release

Attached is a patch that bring the core Perl version code inline with
the latest CPAN release.  The vast majority of changes are in code that
does not execute in core, but that makes it easier to keep the core and
CPAN changes in sync.

12 years agoAdd Socket version numbers to perldelta
Father Chrysostomos [Sat, 27 Nov 2010 21:46:32 +0000 (13:46 -0800)]
Add Socket version numbers to perldelta

12 years agoIncrease’s version
Father Chrysostomos [Sat, 27 Nov 2010 21:45:58 +0000 (13:45 -0800)]
Increase’s version

12 years agoperldelta up to 2a25d7b6
Father Chrysostomos [Sat, 27 Nov 2010 21:25:07 +0000 (13:25 -0800)]
perldelta up to 2a25d7b6

12 years agoSuppress test warning added by 04698ff6
Father Chrysostomos [Sat, 27 Nov 2010 21:02:49 +0000 (13:02 -0800)]
Suppress test warning added by 04698ff6

12 years agoMake *ISA assignment slightly faster
Father Chrysostomos [Sat, 27 Nov 2010 21:05:16 +0000 (13:05 -0800)]
Make *ISA assignment slightly faster

Since we already know the array is magical and we already
have a pointer to the magic half the time, we can call
Perl_magic_clearisa directly.

12 years agoBump Time::HiRes version after 4edfaa8809ab489b9ce1c7936973edc2c80216db.
Craig A. Berry [Sat, 27 Nov 2010 15:50:30 +0000 (09:50 -0600)]
Bump Time::HiRes version after 4edfaa8809ab489b9ce1c7936973edc2c80216db.

12 years agoIncrease PerlIO::scalar’s version
Father Chrysostomos [Sat, 27 Nov 2010 15:43:18 +0000 (07:43 -0800)]
Increase PerlIO::scalar’s version

12 years agomro.c: Assert that the previous commit is correct
Father Chrysostomos [Sat, 27 Nov 2010 15:13:13 +0000 (07:13 -0800)]
mro.c: Assert that the previous commit is correct

12 years agoAvoid a redundant check in mro.c
Father Chrysostomos [Sat, 27 Nov 2010 15:11:20 +0000 (07:11 -0800)]
Avoid a redundant check in mro.c

This code is never reached if oldstash is a hash without an HvENAME.

So instead of checking oldstash in the ?:, then hvename in the if(),
we can do one check.

If oldstash is no longer in the symbol table, then this code is never
reached, because of the if(!fetched_isarev) guard.

12 years agoIncrease’s version
Father Chrysostomos [Sat, 27 Nov 2010 14:42:52 +0000 (06:42 -0800)]
Increase’s version

12 years ago[perl #79680] overload 1.10 sprintf fails taint checking
Michael Fig [Sat, 27 Nov 2010 13:44:26 +0000 (05:44 -0800)]
[perl #79680] overload 1.10 sprintf fails taint checking

[Note from the committer: I cannot reproduce the bug this is intended
to fix. I suspect the author has a botched Scalar::Util installation.
But it *does* make the code go faster, as it uses fewer ops. That’s my
reason for appling it.]

12 years agoAdd Michael Fig to AUTHORS
Father Chrysostomos [Sat, 27 Nov 2010 14:41:40 +0000 (06:41 -0800)]
Add Michael Fig to AUTHORS