This is a live mirror of the Perl 5 development currently hosted at
13 years agoperlbug -d,-v: fix uninit value warnings
David Mitchell [Mon, 7 Jun 2010 22:28:26 +0000 (23:28 +0100)]
perlbug -d,-v: fix uninit value warnings

13 years agodocument revert of 'local $tied' change
David Mitchell [Mon, 7 Jun 2010 21:18:35 +0000 (22:18 +0100)]
document revert of 'local $tied' change

13 years agoRevert "make 'local $tied' untied"
David Mitchell [Mon, 7 Jun 2010 21:11:42 +0000 (22:11 +0100)]
Revert "make 'local $tied' untied"

This reverts commit 191ad7eff570fc96c93993e4358f83e2033365d6.

Some modules (e.g. File::chdir) relied on the current behaviour of
local $tied_scalar, so lets leave things as-is for now. See

13 years agoPATCH: Bump Locale-Codes from 3.12 to 3.13
Sullivan Beck [Mon, 7 Jun 2010 20:58:34 +0000 (21:58 +0100)]
PATCH: Bump Locale-Codes from 3.12 to 3.13

  Attached is a patch to upgrade the Locale-Codes distribution (containing
  the core modules Locale::Country, Locale::Language, and
  Locale::Currency) to the most recent version.


  The core modules Locale::Country, Locale::Language, and Locale::Currency
  (all part of the Locale-Codes distribution) should be updated on a
  regular basis. They contain "codes" from various internet standards
  which change over time.

  I plan on releasing new versions twice a year to keep the codes
  up-to-date. At this point, I'm not planning on any significant code
  changes (other than bug fixes), so the only significant changes
  between releases should be to update the codes.

13 years agoidentify a few vars in intrpvar.h
David Mitchell [Mon, 7 Jun 2010 17:23:43 +0000 (18:23 +0100)]
identify a few vars in intrpvar.h

13 years agoregexec.c: change names of two vars for clarity
Karl Williamson [Sun, 6 Jun 2010 14:50:24 +0000 (08:50 -0600)]
regexec.c: change names of two vars for clarity

do_utf8 is changed to utf8_target
UTF is changed to UTF_PATTERN

This will help me keep track of the fact that there are four possible
combinations of these, and that ! do_utf8 doesn't necessarily mean don't
do utf8.

13 years agoRemove -w recommendation in perl -h
David Golden [Mon, 7 Jun 2010 11:07:10 +0000 (07:07 -0400)]
Remove -w recommendation in perl -h

Abigail already said it best:

  I do not think 'perl -h' is the place to give recommendations on how
  code should be written. 'perl -h' gives a list and a brief explanation
  of the command line switches. IMO, it should do just that, and nothing

13 years agoSpell-check fixes in ext
H.Merijn Brand [Mon, 7 Jun 2010 10:19:32 +0000 (12:19 +0200)]
Spell-check fixes in ext

13 years agoSpell-check fixes in lib
H.Merijn Brand [Mon, 7 Jun 2010 10:17:22 +0000 (12:17 +0200)]
Spell-check fixes in lib

13 years agoSpell check fixes in CPAN
H.Merijn Brand [Mon, 7 Jun 2010 10:17:09 +0000 (12:17 +0200)]
Spell check fixes in CPAN

already fixed upstream

13 years agoglob crashes when %File::Glob:: is empty
Father Chrysostomos [Mon, 7 Jun 2010 10:07:11 +0000 (12:07 +0200)]
glob crashes when %File::Glob:: is empty

In 5.6.2, a failure to find a CORE::GLOBAL::glob after loading
File::Glob would result in a fallback to external glob via pp_glob.
Now it crashes.

The attached patch should fix this.

13 years agoperlhack: Add reference to TAP for test protocol
Karl Williamson [Wed, 2 Jun 2010 18:33:56 +0000 (12:33 -0600)]
perlhack: Add reference to TAP for test protocol

13 years agoperlhack: fix formatting issues
Karl Williamson [Wed, 2 Jun 2010 18:32:19 +0000 (12:32 -0600)]
perlhack: fix formatting issues

Change some lines so won't overflow 80 column width; make a link.

13 years agoPATCH: uniprops.t take advantage of EBCDIC
Karl Williamson [Sun, 30 May 2010 20:11:52 +0000 (14:11 -0600)]
PATCH: uniprops.t take advantage of EBCDIC

This patch removes the partial solution to testing on EBCDIC platforms
that was in uniprops.t (generated by mktables), and replaces it with the
simple complete solution now in

13 years agoreduce size of regmatch_state.u.curlyx by 2 words
David Mitchell [Sun, 6 Jun 2010 20:09:22 +0000 (21:09 +0100)]
reduce size of regmatch_state.u.curlyx by 2 words

13 years agomicro-optimise a bit of trie code
David Mitchell [Sun, 6 Jun 2010 17:48:49 +0000 (18:48 +0100)]
micro-optimise a bit of trie code

13 years agoTest the return value of push and unshift.
Nicholas Clark [Sun, 6 Jun 2010 09:50:56 +0000 (11:50 +0200)]
Test the return value of push and unshift.

13 years agoConvert tiearray.t to
Nicholas Clark [Sun, 6 Jun 2010 09:46:16 +0000 (11:46 +0200)]
Convert tiearray.t to

13 years agoChange regexec.c to use new foldEQ functions
Karl Williamson [Sat, 5 Jun 2010 17:25:58 +0000 (11:25 -0600)]
Change regexec.c to use new foldEQ functions

13 years agoChange name of ibcmp to foldEQ
Karl Williamson [Sat, 5 Jun 2010 17:12:47 +0000 (11:12 -0600)]
Change name of ibcmp to foldEQ

As discussed on p5p, ibcmp has different semantics from other cmp
functions in that it is a binary instead of ternary function.  It is
less confusing then to have a name that implies true/false.

There are three functions affected: ibcmp, ibcmp_locale and ibcmp_utf8.
ibcmp is actually equivalent to foldNE, but for the same reason that things
like 'unless' and 'until' are cautioned against, I changed the functions
to foldEQ, so that the existing names, like ibcmp_utf8 are defined as
macros as being the complement of foldEQ.

This patch also changes the one file where turning ibcmp into a macro
causes problems.  It changes it to use the new name.  It also documents
for the first time ibcmp, ibcmp_locale and their new names.

13 years agoutf8.c: further doc tweaks
Karl Williamson [Sat, 5 Jun 2010 17:08:25 +0000 (11:08 -0600)]
utf8.c: further doc tweaks

13 years agoutf8.c: Modify doc comment; change whitespace
Karl Williamson [Fri, 4 Jun 2010 18:04:45 +0000 (12:04 -0600)]
utf8.c: Modify doc comment; change whitespace

This removes the comment about the function name, and converts tabs to
blanks throughout the function, as so much of it is changing already.

It also removes trailing whitespace in other lines of the file.

13 years agoRevamp ibcmp_utf8 for performance and clarity
Karl Williamson [Tue, 25 May 2010 17:18:42 +0000 (11:18 -0600)]
Revamp ibcmp_utf8 for performance and clarity

I had a hard time understanding how this routine worked; there were no
comments.  In figuring it out, I discovered it could be made more
efficient.  This routine is called over and over in the innermost loops
in regex matching, so efficiency is a concern.

Setup is done once before the main while loop so that it now has two
conditions instead of eight.  The loop was rearranged slightly to be
smaller and a couple of unneeded assignments to temporaries were
removed, and recomputation of some values was avoided.  Several other
small efficiency changes were made.

Several asserts had been commented out, saying that they make tests
fail.  But they no longer do, at least on my platform.  There was a
reason that they were asserts to begin with, and that is they denoted an
insane or trivial condition.  Apparently there have been fixes to the
other code calling this, so I re-enabled them.

The names of several variables were changed to be less confusing; hence
f1 means the fold buffer for string 1 whereas it used to mean its goal,
which is now g1.

The leading indent was changed from 5 to 4 blanks.  I made enough
other changes that I didn't submit this as a separate commit

13 years agoClarify some documentation
Karl Williamson [Tue, 25 May 2010 17:17:22 +0000 (11:17 -0600)]
Clarify some documentation

13 years agosilence some warnings in hv.c
David Mitchell [Sat, 5 Jun 2010 12:44:04 +0000 (13:44 +0100)]
silence some warnings in hv.c

Since de0a224a057997a65d38856f1981702fca5d7c18, xhv_keys and xhv_max
are the same type, so no casting needed

13 years agoadd handy note on vtable fields
David Mitchell [Sat, 5 Jun 2010 12:12:11 +0000 (13:12 +0100)]
add handy note on vtable fields

13 years agoupdate Perl_magic_methcall description
David Mitchell [Sat, 5 Jun 2010 11:46:09 +0000 (12:46 +0100)]
update Perl_magic_methcall description

it's now a varargs function

13 years agofix for RT #8438: $tied->() doesn't call FETCH
David Mitchell [Fri, 4 Jun 2010 22:09:21 +0000 (23:09 +0100)]
fix for RT #8438: $tied->() doesn't call FETCH

pp_entersub checked for ROK *before* calling magic. If the tied scalar
already had ROK set (perhaps from a previous time), then get magic (and
hence FETCH) wasn't called.

13 years agoAvoid overflow warning in chop.t.
Craig A. Berry [Fri, 4 Jun 2010 03:17:39 +0000 (22:17 -0500)]
Avoid overflow warning in chop.t.

It overflows at compile time on 32-bit architectures, so the skip
isn't enough.

13 years agofix indendation of DM_* flag definitions
David Mitchell [Fri, 4 Jun 2010 20:30:18 +0000 (21:30 +0100)]
fix indendation of DM_* flag definitions

13 years agoexpress DM_[GU]ID flags in terms of components
David Mitchell [Fri, 4 Jun 2010 20:28:20 +0000 (21:28 +0100)]
express DM_[GU]ID flags in terms of components

13 years agorename DM_ARRAY flag to DM_ARRAY_ISA
David Mitchell [Fri, 4 Jun 2010 20:25:07 +0000 (21:25 +0100)]
rename DM_ARRAY flag to DM_ARRAY_ISA

This better represents its current role as specifically delaying magic on
@ISA as opposed to a general array magic delay mechanism.

13 years agobelatedly add a test for RT #51636:
David Mitchell [Fri, 4 Jun 2010 20:16:48 +0000 (21:16 +0100)]
belatedly add a test for RT #51636:

segmentation fault with array ties

13 years agoRevert "Re: [perl #51636] segmentation fault with array ties"
David Mitchell [Fri, 4 Jun 2010 20:01:43 +0000 (21:01 +0100)]
Revert "Re: [perl #51636] segmentation fault with array ties"

This reverts commit 90630e3c741716305d7f1da4df5eab5c1bee42cc.

This fix turns out to be wrong, and also made ($<,$>)=(...) fail
(RT #75212).

The original problem was a SEGV in av_clear(). This was mis-diagnosed
as recursive PL_delaymagic issue, and the fix was to temprarily reset
PL_delaymagic to zero. This stopped the mg_set() of $> and $> being

The real problem was that mg_free wasn't clearing the [GSR]MG flags
after freeing xmg_magic. This was independently fixed by commit

13 years agothreads::shared: veto signal despatch if locked
David Mitchell [Fri, 4 Jun 2010 16:05:21 +0000 (17:05 +0100)]
threads::shared: veto signal despatch if locked

This fixes RT #74868: Safe signals changes causing hangs with threads.

The basic issue is that due to changes in where safe signals can be
despatched, (including now on leaving scope), it's possible for a
perl-level signal handler to be called while PL_sharedsv_lock is held.
If the handler does locking or manipulation of shared vars, then deadlock
can occur.

A robust fix for this is to ensure that the signal handler isn't called
while we have the lock. This is done using the signal handler hook added
in the previous commit.

13 years agoadd PL_signalhook to hook into signal dispatch
David Mitchell [Fri, 4 Jun 2010 15:18:05 +0000 (16:18 +0100)]
add PL_signalhook to hook into signal dispatch

This is initially intended for threads::shared and shouldn't (yet)
be considered part of the public API.

13 years agoDo not advertise Math::TrulyRandom, which hasn't been updated since 1996
Rafael Garcia-Suarez [Thu, 3 Jun 2010 14:11:26 +0000 (16:11 +0200)]
Do not advertise Math::TrulyRandom, which hasn't been updated since 1996

(Spotted by Giel Goudsmit)

13 years agoRemove extraneous semicolon from OP_PRIVATE_ONCE.
Craig A. Berry [Thu, 3 Jun 2010 12:44:17 +0000 (07:44 -0500)]
Remove extraneous semicolon from OP_PRIVATE_ONCE.

Thus silencing compiler noise like:

%CC-I-EXTRASEMI, Extraneous semicolon.
at line number 846 in file D0:[craig.blead]dump.c;1

13 years agoDeprecate find_rundefsvoffset()
Vincent Pit [Thu, 3 Jun 2010 10:08:14 +0000 (12:08 +0200)]
Deprecate find_rundefsvoffset()

13 years agoThe UNDERBAR macro should use find_rundefsv() as well
Vincent Pit [Thu, 3 Jun 2010 09:55:20 +0000 (11:55 +0200)]
The UNDERBAR macro should use find_rundefsv() as well

13 years agoMake pp_reverse fetch the lexical $_ from the correct pad
Vincent Pit [Thu, 3 Jun 2010 09:44:15 +0000 (11:44 +0200)]
Make pp_reverse fetch the lexical $_ from the correct pad

This is achieved by introducing a new find_rundefsv() function in pad.c

This fixes [perl #75436].

13 years agoSkip two Japhs that use the fact that split in void context splitted
Abigail [Tue, 1 Jun 2010 16:27:43 +0000 (18:27 +0200)]
Skip two Japhs that use the fact that split in void context splitted
to @_. This is no longer true in 5.12.0 and upwards.

13 years agoDocument IO::Socket getsockopt and setsockopt
Slaven Rezic [Thu, 29 Apr 2010 14:04:35 +0000 (16:04 +0200)]
Document IO::Socket getsockopt and setsockopt

get/setsockopt are not explicitly documented. Note that the documented
sockopt() method is a wrapper around get/setsockopt, but does not cover
all cases because of the hardcoded level (= SOL_SOCKET).

13 years agomove the fresh_perl() tests above the environment tests
Tony Cook [Mon, 31 May 2010 23:50:08 +0000 (09:50 +1000)]
move the fresh_perl() tests above the environment tests

the environment tests were resetting environment variables useful for
running fresh perls, like LD_LIBRARY_PATH.

13 years agoPATCH: teach diag.t new warning function names
Karl Williamson [Mon, 31 May 2010 03:54:32 +0000 (21:54 -0600)]
PATCH: teach diag.t new warning function names

A number of function names that do warnings have been added, but diag.t
hasn't kept up.

This patch changes it to look for likely function names in embed.fnc, so
it will automatically keep up in the future.  There's no need to worry
about it looking for inappropriate functions, as the syntax of messages
that it looks for is so restrictive, that there won't be false
positives.  Instead there are still many messages it fails to catch.

As a result of it's falling behind several issues have crept in.  I
resolved the couple I thought were clear (including one in a comment;
diag.t doesn't strip comments, but mostly it doesn't matter), and added
the others to the <DATA> section to ignore.

13 years agoState the requirement of a C89 compliant ANSI C-compiler
H.Merijn Brand [Mon, 31 May 2010 12:35:09 +0000 (14:35 +0200)]
State the requirement of a C89 compliant ANSI C-compiler

13 years agoIn Perl_pad_add_name(), use sv_upgrade() directly rather than new[AH]V().
Nicholas Clark [Mon, 31 May 2010 12:19:22 +0000 (13:19 +0100)]
In Perl_pad_add_name(), use sv_upgrade() directly rather than new[AH]V().

As newAV() and newHV() are now merely wrappers around sv_upgrade(), and the
existing SV is always brand new and of type SVt_NULL, call them on it, rather
than disposing of it as a side effect of storing a(nother new) SV.

Also, no need to set SvPADMY() again, as it is already set.

Resolves RT #73092.

13 years agoReorder the entry for die, moving discussion of the exit code later.
Nicholas Clark [Mon, 31 May 2010 10:47:04 +0000 (11:47 +0100)]
Reorder the entry for die, moving discussion of the exit code later.

Change to start with "C<die> raises an exception." and phrase in terms of
handling exceptions, and then how uncaught exceptions result in process exit.
Do not give details of the exit code in the first paragraph. Move this to a
later paragraph, clarify that $! is often unpredictable, and stress that 255
is the last resort exit code.

13 years agohandle perl extended utf8 start bytes
Tony Cook [Tue, 16 Mar 2010 12:46:48 +0000 (23:46 +1100)]
handle perl extended utf8 start bytes

perl uses UTF8_IS_START() to test if a byte is a valid start byte,
this didn't take perl's extended UTF-8 range into account.

13 years ago[perl #70075] no 6; broken
Father Chrysostomos [Mon, 31 May 2010 10:03:11 +0000 (20:03 +1000)]
[perl #70075] no 6; broken

the original patch included a fix, but this problem was fixed in
faee19b5, so only apply the test.

13 years agoPATCH: [perl #75138] "\c`" -> " "
Karl Williamson [Sun, 30 May 2010 19:05:48 +0000 (13:05 -0600)]
PATCH: [perl #75138] "\c`" -> " "

Attached is a patch for some of this issue.  I took Nicholas' advice,
and if the result of \cX isn't a word character, the output message will
precede it with a backslash, so the message in the example would be

"\c`" more clearly written simply as "\ " at -e line 1.

I think that message is true.

I also added tests.

There is a test that guarantees that we won't ship 5.14 with things as
they are now in it.  I added wording to the comments next to that test
to be sure to verify with this email thread if we should remove the
deprecation, and mentioned that in the explanatory wording in the pod.
I support removing the deprecation, but for now I'm not touching that,
to see what other issues may yet arise before 5.14.

13 years agoDocument tricks, work-arounds for user-defined casing
Karl Williamson [Fri, 28 May 2010 04:24:40 +0000 (22:24 -0600)]
Document tricks, work-arounds for user-defined casing

And add a .t file to verify that it works.

13 years agoUn-TODO a threads-shared test that now passes
Jerry D. Hedden [Wed, 26 May 2010 18:50:39 +0000 (14:50 -0400)]
Un-TODO a threads-shared test that now passes

Commit bb1bc619ea68d9703fbd3fe5bc65ae000f90151f has
fixed a threads-shared TODO test in t/object.t.

13 years agoAdd mktables option for development use
Karl Williamson [Wed, 5 May 2010 03:43:56 +0000 (21:43 -0600)]
Add mktables option for development use

The -output_names option was added.  It will cause the generated file
tables to not have ranges, and each line will have the character name.
This makes it easier to compare what characters are in given tables,
from version to version, or to compare the differences between

13 years agomktables -- don't create Names table unless asked
Karl Williamson [Tue, 4 May 2010 21:14:24 +0000 (15:14 -0600)]
mktables -- don't create Names table unless asked

This speeds up mktables by not creating the Names table unless asked to,
by someone adding it to the list of tables to be output.  Perl uses a
different table than this one for charnames, so the one being suppressed
isn't generally used.  Previously it was created but not output.  Now,
we skip the useless creation step.

13 years agoFix priority of suppressed vs. explicitly output
Karl Williamson [Tue, 4 May 2010 21:10:18 +0000 (15:10 -0600)]
Fix priority of suppressed vs. explicitly output

It's not clear this is a real bug, but it is a surprise.  If a table is
in the suppressed list, it isn't output, even if it is in the
to-be-output override list.  This latter list is non-empty only if the
user has hand-edited the the program to force an output.  So this patch
makes that list have priority.

13 years agoRemove obsolete comment
Karl Williamson [Tue, 4 May 2010 17:18:59 +0000 (11:18 -0600)]
Remove obsolete comment

Commit: 6c4b69c35161f79a5088d6c3070cc17a0e4978b2 made this comment
obsolete; forgot to remove it then.

13 years agoGenerate simple case folding tables only if asked
Karl Williamson [Tue, 4 May 2010 15:13:35 +0000 (09:13 -0600)]
Generate simple case folding tables only if asked

Speed up mktables by not generating the simple case folding tables
unless asked to.  Previously the simple tables were generated, and then
the full tables were initialized with them, and then overwritten with
the full mappings.  This is an artifact from the fact that the data
comes to us in two files, one  with the simple mappings (among other
things), and another with the full mapping overrides.  Now, the full
tables are initialized from the first file, and the second file
overrides the full mappings.  The simple tables are not generated by
default, so this saves, copying them.

13 years agoAdd comment about objaddr in mktables
Karl Williamson [Sun, 30 May 2010 14:49:28 +0000 (16:49 +0200)]
Add comment about objaddr in mktables

Slightly modified to include the commit id by Steffen.

13 years agoUse in-line 'no overloading' for speed
Karl Williamson [Mon, 3 May 2010 16:06:30 +0000 (10:06 -0600)]
Use in-line 'no overloading' for speed

An earlier performance enhancement was to change the subroutine that
gets the address of a ref to using 'no overloading' and then numifying
the ref, which returns its address.  This patch speeds things up
slightly by in-lining the "no overloading" so that the function call
overhead is avoided.

It also gets rid of the kludge that was done before the original
speed-up that created a local in the call stack of one of the classes so
that the address would only have to be executed once per call stack;
This was subject to failure if maintenance of the code perturbed things
so it didn't work; now the overhead is minimal, so the address is gotten
in each call.

13 years agoDon't require doubled backslashes in perldiag.pod
Karl Williamson [Sun, 16 May 2010 12:56:01 +0000 (06:56 -0600)]
Don't require doubled backslashes in perldiag.pod

Prior to this patch, messages in perldiag.pod had to have \\ instead of
the correct single backslash in order for diag.t to not complain.

13 years agoEliminate some newSV(0)s by merging the SV allocation with first modification.
Nicholas Clark [Sun, 30 May 2010 11:52:01 +0000 (12:52 +0100)]
Eliminate some newSV(0)s by merging the SV allocation with first modification.

13 years agoOnly allocate entries for @_ when the subroutine is first called.
Nicholas Clark [Sun, 30 May 2010 10:51:15 +0000 (11:51 +0100)]
Only allocate entries for @_ when the subroutine is first called.

Previously, @_ was allocated for every subroutine at compile time, with a
default sized AV, hence space for 4 entries. We don't actually need to
allocate the space for entries, as there is already a check at call time as to
whether @_ is long enough.

valgrind suggests that this saves allocating 23K (on a 64 bit platform) when
running pod2man on perlfunc.pod. As well as the absolute saving, there is also
benefit in deferring allocation for subroutines actually called - for a program
which forks, @_ is less likely to be in pages shared COW with the parent.

Resolves RT #72416.

13 years agoFix the regexp in t/porting/args_assert.t, and add 3 missing macros.
Nicholas Clark [Sat, 29 May 2010 21:22:36 +0000 (22:22 +0100)]
Fix the regexp in t/porting/args_assert.t, and add 3 missing macros.

Resolves RT #72800.

13 years agoProperly free paren_name_list with its regexp.
Nicholas Clark [Sat, 29 May 2010 21:07:04 +0000 (22:07 +0100)]
Properly free paren_name_list with its regexp.

Previously the AV paren_name_list would "leak" until global destruction.
This was only an issue under -DDEBUGGING. Fixes RT #73438.

13 years agoClarify that count is bytes not unicode characters
Karl Williamson [Fri, 15 Jan 2010 04:21:37 +0000 (21:21 -0700)]
Clarify that count is bytes not unicode characters

13 years agoDisplay characters as Unicode for clarity
Karl Williamson [Fri, 15 Jan 2010 02:19:22 +0000 (19:19 -0700)]
Display characters as Unicode for clarity

13 years agoAdd tested for corrupted regnode
Karl Williamson [Fri, 15 Jan 2010 00:36:46 +0000 (17:36 -0700)]
Add tested for corrupted regnode

13 years agoUse sizeof instead of hard-coded array size
Karl Williamson [Thu, 14 Jan 2010 23:02:14 +0000 (16:02 -0700)]
Use sizeof instead of hard-coded array size

The array should be declared with its actual size.

13 years agoTypo
Karl Williamson [Thu, 14 Jan 2010 23:01:13 +0000 (16:01 -0700)]

13 years agoWhen assigning to $^P, don't zero $DB::single, $DB::trace and $DB::signal.
Nicholas Clark [Sat, 29 May 2010 15:23:53 +0000 (16:23 +0100)]
When assigning to $^P, don't zero $DB::single, $DB::trace and $DB::signal.

Previously, whenever a true value was assigned to $^P, all 3 were set to 0.
Now only set them to 0 if they aren't already SvIOK().

Resolves RT #72422.

13 years agoMigrate most other op_private to name conversion into S_op_private_to_names().
Nicholas Clark [Fri, 28 May 2010 15:02:12 +0000 (16:02 +0100)]
Migrate most other op_private to name conversion into S_op_private_to_names().

13 years agoIn Perl_do_op_dump(), move calls to append_flags() into S_op_private_to_names()
Nicholas Clark [Fri, 28 May 2010 13:33:34 +0000 (14:33 +0100)]
In Perl_do_op_dump(), move calls to append_flags() into S_op_private_to_names()

13 years agoAdd C_ARRAY_END(), returning a pointer to after the last element of an array.
Nicholas Clark [Fri, 28 May 2010 13:53:04 +0000 (14:53 +0100)]
Add C_ARRAY_END(), returning a pointer to after the last element of an array.

Refactor the macro append_flags() in dump.c to use it.

13 years agoIn Perl_do_op_dump(), reorder the ops within the if (o->op_private) clause.
Nicholas Clark [Fri, 28 May 2010 12:53:02 +0000 (13:53 +0100)]
In Perl_do_op_dump(), reorder the ops within the  if (o->op_private) clause.

13 years agoIn Perl_do_sv_dump(), use append_flags() for PVCV, PVFM and PVGP flags.
Nicholas Clark [Fri, 28 May 2010 12:43:43 +0000 (13:43 +0100)]
In Perl_do_sv_dump(), use append_flags() for PVCV, PVFM and PVGP flags.

13 years agoIn Perl_do_sv_dump(), for PVCV and PVFM, test for SvCOMPILED(sv) last.
Nicholas Clark [Fri, 28 May 2010 10:50:54 +0000 (11:50 +0100)]
In Perl_do_sv_dump(), for PVCV and PVFM, test for SvCOMPILED(sv) last.

13 years agoIn Perl_do_op_dump(), move runs of op_private name tests to S_append_flags().
Nicholas Clark [Fri, 28 May 2010 10:26:16 +0000 (11:26 +0100)]
In Perl_do_op_dump(), move runs of op_private name tests to S_append_flags().

13 years agoCreate S_append_flags() from a common code pattern in dump.c.
Nicholas Clark [Fri, 28 May 2010 09:56:21 +0000 (10:56 +0100)]
Create S_append_flags() from a common code pattern in dump.c.

Convert repetitive sequences of "if this bit is set, append that string" into
structures and a function call. Use a custom macro append_flags() to make
calling it easer.

This makes the object code slightly smaller.

13 years agoInPerl_boot_core_UNIVERSAL() use a data structure for calls to newXS{,proto}
Nicholas Clark [Tue, 5 Jan 2010 13:06:52 +0000 (13:06 +0000)]
InPerl_boot_core_UNIVERSAL() use a data structure for calls to newXS{,proto}

Replacing the longhand list of calls to newXS{,proto} with loop over a data
structure reduces the object size by over 1K.

13 years agoNaif calls segfault T_PRTOBJ of the stock typemap
Salvador Ortiz Garcia [Fri, 28 May 2010 08:25:52 +0000 (10:25 +0200)]
Naif calls segfault T_PRTOBJ of the stock typemap

The T_PTROBJ INPUT in stock typemap only uses 'sv_derived_from' for
input validation, that cause a segfault when the argument passed match
the class name.

13 years agoAdd simple_bitmask and varies_bitmask to globvar.sym.
Nicholas Clark [Fri, 28 May 2010 06:58:19 +0000 (07:58 +0100)]
Add simple_bitmask and varies_bitmask to globvar.sym.

global.sym is generated; is there a way to automate globvar.sym?

13 years agoConvert REGNODE_{SIMPLE,VARIES} to a bitmask lookup, from a strchr() lookup.
Nicholas Clark [Wed, 17 Mar 2010 17:16:24 +0000 (17:16 +0000)]
Convert REGNODE_{SIMPLE,VARIES} to a bitmask lookup, from a strchr() lookup.

This is O(1) with no branching, instead of O(n) with branching.
Deprecate the old implementation's externally visible variables
PL_simple and PL_varies. Google codesearch suggests that nothing outside the
core regexp code was using these.

13 years agoChange to 0-based indexing for its arrays and loops.
Nicholas Clark [Wed, 17 Mar 2010 16:41:27 +0000 (16:41 +0000)]
Change to 0-based indexing for its arrays and loops.

13 years agoEncapsulate lookups in PL_{varies,simple} within macros REGNODE_{VARIES,SIMPLE}
Nicholas Clark [Wed, 17 Mar 2010 13:58:25 +0000 (13:58 +0000)]
Encapsulate lookups in PL_{varies,simple} within macros REGNODE_{VARIES,SIMPLE}

This allows the implementation of the lookup mechanism to change.

13 years agoGenerate PL_simple[] and PL_varies[] with, rather than hard-coding.
Nicholas Clark [Wed, 17 Mar 2010 13:33:48 +0000 (13:33 +0000)]
Generate PL_simple[] and PL_varies[] with, rather than hard-coding.

Add a new flags column to regcomp.sym, with V if the node type is in PL_varies,
S if it is in PL_simple, and . if a placeholder is needed because subsequent
optional columns are present.

13 years agoRe-work the regcomp.sym to remove use of hard tabs. No data change.
Nicholas Clark [Tue, 16 Mar 2010 10:22:04 +0000 (10:22 +0000)]
Re-work the regcomp.sym to remove use of hard tabs. No data change.

The tab separating name and type is replaced with whitespace, the tab marking
the start of the description is replaced by a semicolon.

13 years agoCorrect the node numbers in comments.
Nicholas Clark [Tue, 16 Mar 2010 09:50:29 +0000 (09:50 +0000)]
Correct the node numbers in comments.

Really, should we be maintaining these manually?

13 years agoRemove stray tab character in definition for VERB.
Nicholas Clark [Tue, 16 Mar 2010 09:48:35 +0000 (09:48 +0000)]
Remove stray tab character in definition for VERB.

As VERB is "Used only for the type field of verbs" this is only a cosmetic
change, causing that correct description to appear in the comment in
regnodes.h. The change to regarglen doesn't affect anything, as the VERB type
is never actually used for compiled nodes.

13 years agoFix clang "incompatible operand types" error in ternary expressions.
George Greer [Thu, 27 May 2010 01:12:37 +0000 (21:12 -0400)]
Fix clang "incompatible operand types" error in ternary expressions.

13 years agoPATCH: user defined special casing for non utf8
Karl Williamson [Fri, 14 May 2010 14:56:46 +0000 (08:56 -0600)]
PATCH: user defined special casing for non utf8

Users can define their own case changing mappings to replace the
standard ones.  Prior to this patch, any mappings on characters whose
ordinals are 0-222, 224-255 that resulted in multiple characters were

Note that there still is a deficiency in that the mappings will be
applied only to strings in utf8 format.

13 years agoChange a few tests to use new EBCDIC stuff
Karl Williamson [Mon, 24 May 2010 17:01:10 +0000 (11:01 -0600)]
Change a few tests to use new EBCDIC stuff

A few .t's are delivered here which use the new conversion functions in  Obviously, this commit doesn't have to be incorporated, but it
does simplify those tests.

13 years agoAdd functions to for easier EBCDIC testing
Karl Williamson [Mon, 24 May 2010 16:50:13 +0000 (10:50 -0600)]
Add functions to for easier EBCDIC testing

This patch adds functions native_to_latin1($) and latin1_to_native($) to  Use of these in test scripts allows for less special case code
(or deciding to blow it off and just skip EBCDIC platforms).  If a
string is all ASCII, one has always been able to just use it and not
worry about EBCDIC.  But non-ASCII, latin1 characters have been a
different matter.  This allows one to wrap those characters in a
function call and get automatic EBCDIC compatibility.

The functions do not handle UTF-8/UTF-EBCDIC conversions.  This is more
complicated, and I was worried that that part was not appropriate for which should use the bare minimum of Perl functionality.  These
functions use tr///, beyond what other parts of use.

13 years agoFix CLONE/weakref bug revealed by adf8f095c5881bce.
Nicholas Clark [Tue, 25 May 2010 16:23:10 +0000 (17:23 +0100)]
Fix CLONE/weakref bug revealed by adf8f095c5881bce.

The AV unreferenced in the clone_params needs to be reference counted, rather
than not referenced counted, because the fixup to ensure that all otherwise
0-reference count scalars have a reference (on the temps stack) happens after
CLONE is run, and CLONE can run Perl code that causes their reference counts
to increase from then return to zero, which prematurely triggers sv_free().

13 years agoUpdate rsync sources in perlhack
H.Merijn Brand [Tue, 25 May 2010 16:26:37 +0000 (18:26 +0200)]
Update rsync sources in perlhack

13 years agoAdd the perl equivalent for av_make.
Shlomi Fish [Mon, 24 May 2010 20:40:48 +0000 (23:40 +0300)]
Add the perl equivalent for av_make.

Signed-off-by: David Golden <>
13 years agoAdd the Perl equivalent for av_len.
Shlomi Fish [Wed, 19 May 2010 17:11:03 +0000 (20:11 +0300)]
Add the Perl equivalent for av_len.

Signed-off-by: David Golden <>
13 years agoAdd a missing comma in the av_fill() docs.
Shlomi Fish [Wed, 19 May 2010 14:46:43 +0000 (17:46 +0300)]
Add a missing comma in the av_fill() docs.

Minor, but still good enough for a commit.

Signed-off-by: David Golden <>
13 years agoClarify the av_fetch() documentation.
Shlomi Fish [Tue, 18 May 2010 14:42:52 +0000 (17:42 +0300)]
Clarify the av_fetch() documentation.

Thanks to LeoNerd and Zefram on #p5p on IRC for some insights and
suggesting versions for the modified text. I ended up using Zefram's

Signed-off-by: David Golden <>
13 years agoAdd Perl equivalent for av_exists().
Shlomi Fish [Tue, 18 May 2010 12:31:41 +0000 (15:31 +0300)]
Add Perl equivalent for av_exists().

This mentions that it's equivalent to exists($myarray[$key]).

Signed-off-by: David Golden <>