This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
perl5.git
12 years agoUpdate PerlCheat to 5.14
H.Merijn Brand [Tue, 14 Jun 2011 18:12:01 +0000 (20:12 +0200)]
Update PerlCheat to 5.14

12 years agopos in lvalue context now returns a PVMG instead of a PVLV.
Nicholas Clark [Tue, 14 Jun 2011 15:52:46 +0000 (17:52 +0200)]
pos in lvalue context now returns a PVMG instead of a PVLV.

Store the target SV in mg_obj, instead of LvTARG(). This slightly reduces both
code complexity and runtime memory use.

12 years agoIn magic.t, restore $$ after modifying it.
Nicholas Clark [Tue, 14 Jun 2011 15:32:12 +0000 (17:32 +0200)]
In magic.t, restore $$ after modifying it.

Otherwise tests for setting $0 fail on any Linux or FreeBSD machine which
happens to have a running process 42. (The value $$ is set to for the
assignment test). Without a running process 42, those tests skip, on the
assumption that they aren't running on a suitable platform to read the process
name with external commands.

12 years ago[perl #8611] tied handles and gotos don't mix
David Mitchell [Tue, 14 Jun 2011 13:21:56 +0000 (14:21 +0100)]
[perl #8611] tied handles and gotos don't mix

tied handle method calls, unlike other types of tie, don't push a new
stack. This means that a goto within a method to an outer scope
"succeeds", and pops back the context stack past the method call. When
control (at the C level) eventually passes back to the return from
call_method(), we've lost all our relevant stack contents (like all the
ENTERs), and corruption ensures.

The fix is to add PUSHSTACKi/POPSTACK.

The side effect of this is that attempts to goto out of a tied handle
method call now give "Can't find label" errors, like non-handle methods
already do.

12 years agoIgnore the generated mg_data.h
Florian Ragwitz [Tue, 14 Jun 2011 11:12:26 +0000 (13:12 +0200)]
Ignore the generated mg_data.h

12 years agoperlfaq9: Sys::Hostname is in core since 5.0
brian d foy [Thu, 2 Jun 2011 02:21:46 +0000 (21:21 -0500)]
perlfaq9: Sys::Hostname is in core since 5.0

12 years agoRemove FAQ about PONIE
brian d foy [Sun, 29 May 2011 13:17:42 +0000 (08:17 -0500)]
Remove FAQ about PONIE

12 years agoRe-mention $foo Magazin in perlfaq2
brian d foy [Thu, 28 Apr 2011 15:12:51 +0000 (10:12 -0500)]
Re-mention $foo Magazin in perlfaq2

12 years agoThe Perl Review isn't really a magazine anymore
brian d foy [Fri, 15 Apr 2011 20:05:13 +0000 (15:05 -0500)]
The Perl Review isn't really a magazine anymore

12 years agoMake $$ writable, but still magical
Father Chrysostomos [Tue, 14 Jun 2011 05:44:15 +0000 (22:44 -0700)]
Make $$ writable, but still magical

This commit makes $$ writable again, as it was in 5.6, while preserv-
ing the magical pid-fetching added recently (post-5.14.0) by com-
mit 0e219455.

It does this by following Aristotle Pagaltzis’ brilliant suggestion in
<20110609145148.GD8471@klangraum.plasmasturm.org>; namely, to store
the PID in magic when $$ is written to, so that get-magic can detect
whether a fork() has occurred and reset $$ accordingly.  This makes it
seem as though the fork() code sets $$ itself (which it used to before
0e219455), while even working when C code outside of perl’s control
calls fork().

This restores compatibility with DBIx::Connector and PPerl.

12 years agoUpdate preferred perldelta RT citation standard
David Golden [Mon, 13 Jun 2011 23:43:58 +0000 (19:43 -0400)]
Update preferred perldelta RT citation standard

12 years agocharnames: Abbreviations wrong on certain C1 controls
Karl Williamson [Mon, 13 Jun 2011 17:48:40 +0000 (11:48 -0600)]
charnames: Abbreviations wrong on certain C1 controls

The abbreviations for 4 of the C1 controls have a trailing blank.
Unfortunately so did the tests for them.

12 years agoMove an XS::APItest var decl to PREINIT
Father Chrysostomos [Mon, 13 Jun 2011 06:16:29 +0000 (23:16 -0700)]
Move an XS::APItest var decl to PREINIT

Hopefully this will get smoke reports to pass again on Windows.

12 years agoMore perldelta entries
Father Chrysostomos [Mon, 13 Jun 2011 05:05:46 +0000 (22:05 -0700)]
More perldelta entries

12 years agoSome perldelta updates
Father Chrysostomos [Mon, 13 Jun 2011 01:09:59 +0000 (18:09 -0700)]
Some perldelta updates

12 years agoFix typo in perlmod
Father Chrysostomos [Sun, 12 Jun 2011 22:14:04 +0000 (15:14 -0700)]
Fix typo in perlmod

12 years agoCompletely free hashes containing nulls
Father Chrysostomos [Sun, 12 Jun 2011 21:46:44 +0000 (14:46 -0700)]
Completely free hashes containing nulls

This fixes a regression introduced since 5.14.0, by commit e0171a1a3.

The new Perl_hfree_next_entry function that that commit introduced
returns the value of the hash element, or NULL if there are none left.
If the value of the hash element is NULL, the two cases are indistin-
guishable.

Before e0171a1a3, all the hash code took null values into account.
mro_package_moved took advantage of that, stealing values out of a
hash and leaving it to the freeing code to delete the elements.

The two places that call Perl_hfree_next_entry (there was only one,
S_hfreeentries, with commit e0171a1a3, but the following commit,
104d7b699c, made sv_clear call it, too) were not accounting for NULL
values’ being returned, and could terminate early, resulting in mem-
ory leaks.

One could argue that the perl core should not be assigning nulls to
HeVAL, but HeVAL is part of the public API and there could be CPAN
code assigning NULL to it, too.

So the safest approach seems to be to modify Perl_hfree_next_entry’s
callers to check the number of keys and not to attribute a signifi-
cance to a returned NULL.

12 years agoReorder interpreter struct to remove alignment holes
Nicholas Clark [Mon, 2 May 2011 21:22:06 +0000 (22:22 +0100)]
Reorder interpreter struct to remove alignment holes

On a LP64 system the interpreter struct should now be 8 bytes smaller.

12 years agoRe-order perlvars.h to group related variables, and spread mutexes out.
Nicholas Clark [Mon, 2 May 2011 20:22:08 +0000 (21:22 +0100)]
Re-order perlvars.h to group related variables, and spread mutexes out.

Move variables smaller than pointers into groups, to avoid holes in the
structure for PERL_GLOBAL_STRUCT. Spreading the mutexes out tries to keep them
off the same cache lines, which may help slightly on multi-processor machines.

12 years agoPL_perlio_mutex is only needed with USE_UIHREADS && USE_PERLIO
Nicholas Clark [Mon, 2 May 2011 19:24:25 +0000 (20:24 +0100)]
PL_perlio_mutex is only needed with USE_UIHREADS && USE_PERLIO

(Not that Configure will let you configure with ithreads but without perlio)

12 years agoChange PL_use_safe_putenv from int to bool.
Nicholas Clark [Mon, 2 May 2011 16:51:11 +0000 (17:51 +0100)]
Change PL_use_safe_putenv from int to bool.

It is only ever checked for truth/falsehood, and all assignments to it (in core
and on CPAN) are either 0 or 1.

12 years agoMove PL_runops_{std,dbg} to perl.h, and make them const.
Nicholas Clark [Mon, 2 May 2011 14:02:57 +0000 (15:02 +0100)]
Move PL_runops_{std,dbg} to perl.h, and make them const.

They exist solely to ensure that Perl_runops_standard and Perl_runops_debug
are linked in - nothing assigns to either variable, and nothing reads them.

12 years agoMove PL_global_struct_size, PL_interp_size{,_5_16_0} to perl.h
Nicholas Clark [Sun, 1 May 2011 21:12:15 +0000 (22:12 +0100)]
Move PL_global_struct_size, PL_interp_size{,_5_16_0} to perl.h

Make them const U16 - they should have been const from the start.

12 years agoIn perlvar.h, move the always-present globals above those conditionally compiled
Nicholas Clark [Sun, 1 May 2011 20:13:01 +0000 (21:13 +0100)]
In perlvar.h, move the always-present globals above those conditionally compiled

Rename PL_interp_size_5_10_0 to PL_interp_size_5_16_0, as it is only intended to
track interpreter size within (forwards) binary compatible maintenance branches.

12 years agoMove PL_{revision,version,subversion} to perl.h, making them const U8.
Nicholas Clark [Sun, 1 May 2011 13:39:31 +0000 (14:39 +0100)]
Move PL_{revision,version,subversion} to perl.h, making them const U8.

To get the initialisation to work, the location of #include patchlevel.h needs
to be moved.

12 years agoMove PL_sh_path to perl.h (except for OS/2), as it's const char[]
Nicholas Clark [Sun, 1 May 2011 11:25:58 +0000 (12:25 +0100)]
Move PL_sh_path to perl.h (except for OS/2), as it's const char[]

On OS/2, keep it in perlvars.h, as it's not const there. makedef.pl doesn't
pay attention to C pre-processor symbols, so it will always see the declaration
in perlvars.h, and add the symbol to the linker file, so no need to mention
sh_path in globvar.sym. Add special case logic in regen/embed.pl to make the
embedvar.h macros for PL_sh_path defined only on OS/2.

12 years agoMove PL_{No,Yes,hexdigit} from perlvars.h to perl.h, as all are const char[]
Nicholas Clark [Sat, 30 Apr 2011 22:01:07 +0000 (23:01 +0100)]
Move PL_{No,Yes,hexdigit} from perlvars.h to perl.h, as all are const char[]

They were converted in perl.h from const char[] to #define in 31fb120917c4f65d,
then re-instated as const char[], but in perlvars.h, in 3fe35a814d0a98f4.
There's no need for compile-time constants to jump through the hoops of
perlvars.h, even for Symbian, as the various "EXTCONST" variables already in
perl.h demonstrate.

These were the only 3 users of the the PERLVARISC macro, so eliminate that, and
all related code.

12 years agoEliminate PL_patleave, unused since perl 5.0 alpha 2.
Nicholas Clark [Sat, 30 Apr 2011 20:49:03 +0000 (21:49 +0100)]
Eliminate PL_patleave, unused since perl 5.0 alpha 2.

patleave was added in perl 3.0 patch #35 patch #29 -- 395c379347344a50,
used in scanpat(). scanpat() was refactored and renamed to scan_pat() in
5.0 alpha 2, "commented" out with the C pre-processor in 5.000, and removed in
5.001.

12 years agoMove the temporary definitions for PERLVAR* macros inside #ifdef MULTIPLICITY
Nicholas Clark [Sat, 30 Apr 2011 15:10:20 +0000 (16:10 +0100)]
Move the temporary definitions for PERLVAR* macros inside #ifdef MULTIPLICITY

Under MULTIPLICITY, intrpvar.h is included "early", as:

struct interpreter {
#  include "intrpvar.h"
};

with local definitions of PERLVAR{,A,I,IS,ISC} that generate output text for the
"variables" as structure members. Additionally, under PERL_GLOBAL_STRUCT
"perlvars.h" is included within struct perl_vars { ... }.

Move the definition/undefining of these 5 macros to within the
#ifdef MULTIPLICITY block, to clarify the limited intent of their scope.

Move some additional related PERL_GLOBAL_STRUCT setup to within the block.

12 years agoUpdate Porting/checkURL.pl to not verify secure hostnames and add many updates
Leon Brocard [Sun, 12 Jun 2011 13:53:29 +0000 (14:53 +0100)]
Update Porting/checkURL.pl to not verify secure hostnames and add many updates

12 years agoFix broken URL in dist/threads/lib/threads.pm for the itheads mailing list
Leon Brocard [Sun, 12 Jun 2011 13:21:00 +0000 (14:21 +0100)]
Fix broken URL in dist/threads/lib/threads.pm for the itheads mailing list

12 years agoFix broken URLs in dist/Net-Ping/Changes from perlbrowse to git
Leon Brocard [Sun, 12 Jun 2011 13:20:30 +0000 (14:20 +0100)]
Fix broken URLs in dist/Net-Ping/Changes from perlbrowse to git

12 years agoFix broken URLs in dist/Locale-Maketext/lib/Locale/Maketext/TPJ13.pod for RFCs
Leon Brocard [Sun, 12 Jun 2011 13:19:53 +0000 (14:19 +0100)]
Fix broken URLs in dist/Locale-Maketext/lib/Locale/Maketext/TPJ13.pod for RFCs

12 years agoFix broken URLs in ExtUtils-Install/Changes from perlbrowse to git
Leon Brocard [Sun, 12 Jun 2011 13:19:27 +0000 (14:19 +0100)]
Fix broken URLs in ExtUtils-Install/Changes from perlbrowse to git

12 years agoFix broken URL in threads/shared.pm for the itheads mailing list
Leon Brocard [Sun, 12 Jun 2011 13:18:32 +0000 (14:18 +0100)]
Fix broken URL in threads/shared.pm for the itheads mailing list

12 years agoFix broken URLs for RFCs, bump version and document in perldelta
Leon Brocard [Sun, 12 Jun 2011 13:17:01 +0000 (14:17 +0100)]
Fix broken URLs for RFCs, bump version and document in perldelta

12 years agoFix two broken URLs in mro.pm, bump version and document in perldelta
Leon Brocard [Sun, 12 Jun 2011 13:11:54 +0000 (14:11 +0100)]
Fix two broken URLs in mro.pm, bump version and document in perldelta

12 years agoGenerate the table of core magic types in perlguts.pod using mg_vtable.pl
Nicholas Clark [Sun, 12 Jun 2011 12:23:30 +0000 (14:23 +0200)]
Generate the table of core magic types in perlguts.pod using mg_vtable.pl

This fixes a couple of errors and omissions, and resorts the table in the same
case insensitive order as the header files. It eliminates 1 overlong verbatim
line of pod.

As there's no good way to include component files into the core pods, and the
regen scripts aren't designed to modify in place, generate this to STDOUT (if
-g is added to the command line), to be hand edited into place. It would be
nice to be able to automate this fully.

12 years agoIn regen/mg_vtable.pl, move $longest inside the only block that uses it.
Nicholas Clark [Sun, 12 Jun 2011 10:46:18 +0000 (11:46 +0100)]
In regen/mg_vtable.pl, move $longest inside the only block that uses it.

12 years agoReorder ops so that trans{,r} and aelemfast{,_lex} are adjacent.
Nicholas Clark [Sun, 12 Jun 2011 09:24:46 +0000 (11:24 +0200)]
Reorder ops so that trans{,r} and aelemfast{,_lex} are adjacent.

12 years agoSplit OP_AELEMFAST_LEX out from OP_AELEMFAST.
Nicholas Clark [Sun, 24 Apr 2011 15:37:17 +0000 (16:37 +0100)]
Split OP_AELEMFAST_LEX out from OP_AELEMFAST.

6a077020aea1c5f0 extended the OP_AELEMFAST optimisation to lexical arrays.
Previously OP_AELEMFAST was only used as an optimisation for OP_GV, which is a
PADOP/SVOP.

However, by reusing the same opcode, and signalling (pad) lexical vs package,
it introduced a myriad of special cases, because OP_PADAV is a BASEOP (not a
PADOP), whilst OP_AELEMFAST is a PADOP/SVOP (which is larger).

Using two OP numbers allows each variant to have the correct OP flags in
PL_opargs. Both can continue to share the same C code.

12 years agoFix some broken URLs found by Porting/checkURL.pl
Leon Brocard [Sun, 12 Jun 2011 07:45:13 +0000 (08:45 +0100)]
Fix some broken URLs found by Porting/checkURL.pl

12 years agoShrink struct am_table.
Nicholas Clark [Sun, 12 Jun 2011 07:27:06 +0000 (09:27 +0200)]
Shrink struct am_table.

Two members, flags and fallback, were using integer types considerably larger
than the range of values that they needed to store.

12 years ago[perl #90130] Allow CORE::* without feature.pm
Father Chrysostomos [Sat, 11 Jun 2011 21:44:32 +0000 (14:44 -0700)]
[perl #90130] Allow CORE::* without feature.pm

This commit allows feature.pm-enabled keywords to work with CORE::*
even outside the scope of ‘use feature’.

12 years agoCorrect file references in switch.t
Father Chrysostomos [Sat, 11 Jun 2011 21:11:35 +0000 (14:11 -0700)]
Correct file references in switch.t

12 years agoRemove TODO markers from Devel::Peek tests
Father Chrysostomos [Sat, 11 Jun 2011 20:40:59 +0000 (13:40 -0700)]
Remove TODO markers from Devel::Peek tests

These all pass now as of commit b56985536ef7.

12 years agoRemove x bit from rt-16221.t
Father Chrysostomos [Sat, 11 Jun 2011 20:22:45 +0000 (13:22 -0700)]
Remove x bit from rt-16221.t

12 years agoIncrease Math::BigInt’s version
Father Chrysostomos [Sat, 11 Jun 2011 20:21:49 +0000 (13:21 -0700)]
Increase Math::BigInt’s version

12 years agoIncrease Math::BigFloat’s version
Father Chrysostomos [Sat, 11 Jun 2011 20:20:39 +0000 (13:20 -0700)]
Increase Math::BigFloat’s version

12 years ago[perl #85026] Iterate hashes by hand during do_sv_dump
Ton Hospel [Sat, 11 Jun 2011 19:28:00 +0000 (12:28 -0700)]
[perl #85026] Iterate hashes by hand during do_sv_dump

A further note: while debugging this issue it was annoying that
Devel::Peek::Dump doesb't actually dump the HASH elements when an
iterator is active. Also added is a patch that does the iteration to
dump the HASH contents by iterating over it by hand (not disturbing
any active iterator). With that it also doesn't activate hash magic
during iteration, which I think is a feature

12 years agoRevert "Perl_do_sv_dump: alert when skipping elements"
Father Chrysostomos [Sat, 11 Jun 2011 19:22:52 +0000 (12:22 -0700)]
Revert "Perl_do_sv_dump: alert when skipping elements"

This reverts commit 002beaef76a1595af2e39ffd4cd55c595bd6c271.

I am about to apply the manual-iteration patch from ticket #85026.
It conflicts with 002beaef, but it also renders 002beaef unnecessary.

12 years agoallow features inside interactive debugger
Salvador Fandino [Sat, 11 Jun 2011 19:20:56 +0000 (12:20 -0700)]
allow features inside interactive debugger

12 years agoAdd dist/Math-BigInt/t/rt-16221.t to MANIFEST
Father Chrysostomos [Sat, 11 Jun 2011 19:26:35 +0000 (12:26 -0700)]
Add dist/Math-BigInt/t/rt-16221.t to MANIFEST

12 years agoFix Math::BigFloat->numify().
Peter John Acklam [Mon, 7 Mar 2011 10:45:38 +0000 (11:45 +0100)]
Fix Math::BigFloat->numify().

Math::BigFloat->numify() shall, according to the documentation and to be
consistent with Math::BigInt->numify() and Math::BigRat->numify(),
return a Perl scalar number, not a string.

- dist/Math-BigInt/lib/Math/BigFloat.pm:
  - Fix objectify().
- dist/Math-BigInt/t/bigfltpm.inc:
   - Remove no longer relevant tests.
   - Modify existing tests and add new tests to verify correct behaviour.

This fix closes RT #66732.

12 years agoFix objectify()'s handling of "foreign objects".
Peter John Acklam [Mon, 7 Mar 2011 10:45:38 +0000 (11:45 +0100)]
Fix objectify()'s handling of "foreign objects".

- Fix handling of "foreign objects" so they are converted to the
  appropriate class (Math::BigInt or Math::BigFloat).
- Avoid code duplication by using only one loop.
- Loop over indexes rather than array elements to make code cleaner.
- Fix incorrect code comments, add more code comments and clearify
  existing ones.
- Correct handling of undefs to make the code consistent. objectify()
  gave different output when the initial "shortcut" was removed.
- Add test file verifying that RT#16221 is fixed.

This fix closes RT #16221 and RT #52124. This patch supersedes Perl #86146.

12 years agoAdd sign function bsgn() as a complement to babs().
Peter John Acklam [Mon, 7 Mar 2011 10:45:38 +0000 (11:45 +0100)]
Add sign function bsgn() as a complement to babs().

This is the standard mathematical signum function. It sets the
invocand to -1, 0, or 1, if it is real, and NaN otherwise.

Documentation and tests are included.

12 years agoRemove another bug workaround
Father Chrysostomos [Fri, 13 May 2011 15:32:24 +0000 (08:32 -0700)]
Remove another bug workaround

12 years agoRemove workaround for fixed bug
Father Chrysostomos [Fri, 13 May 2011 15:31:16 +0000 (08:31 -0700)]
Remove workaround for fixed bug

12 years agoRevert "Revert "Make untie check the FAKE flag on globs""
Father Chrysostomos [Fri, 13 May 2011 15:30:50 +0000 (08:30 -0700)]
Revert "Revert "Make untie check the FAKE flag on globs""

This reverts commit 84b9ac853508aaff52254b6cf2b95a2a6783ff00.

12 years agoRevert "Revert "[perl #77688] tie $scalar can tie a handle""
Father Chrysostomos [Fri, 13 May 2011 15:30:25 +0000 (08:30 -0700)]
Revert "Revert "[perl #77688] tie $scalar can tie a handle""

This reverts commit 7850f4d6b732ab5f426cd3bcd9757c70a46cfda1.

12 years agoRevert "Revert "[perl #77496] tied gets scalars and globs confused""
Father Chrysostomos [Fri, 13 May 2011 15:29:42 +0000 (08:29 -0700)]
Revert "Revert "[perl #77496] tied gets scalars and globs confused""

This reverts commit b029825916bf29623e00b45fa4226fab0d52d217.

12 years agoRevert ‘Deprecate tie $handle without *’
Father Chrysostomos [Fri, 13 May 2011 15:24:16 +0000 (08:24 -0700)]
Revert ‘Deprecate tie $handle without *’

This reverts commit 7c7df8124bbdd7a0091f8ed82589548c8182f624,
except for the perldiag entry, which we still need for splain’s sake.

12 years agoAdd Porting/make_modlib_cpan.pl to MANIFEST.
Nicholas Clark [Sat, 11 Jun 2011 17:21:01 +0000 (19:21 +0200)]
Add Porting/make_modlib_cpan.pl to MANIFEST.

Also -x it, as it doesn't have a suitable #! line, and its peers are all -x.

12 years agoregexec.c: Remvove unnecessary special handling for \xDF
Karl Williamson [Wed, 4 May 2011 15:03:43 +0000 (09:03 -0600)]
regexec.c: Remvove unnecessary special handling for \xDF

regcomp.c has been changed, so the case that this handled no longer
comes up.

12 years agoTypo in VMS-specific realclean target from 6f83ef0e5a45c465f83de3304c5818ba44492250.
Craig A. Berry [Sat, 11 Jun 2011 16:25:30 +0000 (11:25 -0500)]
Typo in VMS-specific realclean target from 6f83ef0e5a45c465f83de3304c5818ba44492250.

12 years agoAdded Alan Haggai Alavi to AUTHORS
David Golden [Sat, 11 Jun 2011 16:24:57 +0000 (12:24 -0400)]
Added Alan Haggai Alavi to AUTHORS

12 years agoperlvar.pod: fixed typo
Alan Haggai Alavi [Sat, 11 Jun 2011 15:14:48 +0000 (20:44 +0530)]
perlvar.pod: fixed typo

Signed-off-by: David Golden <dagolden@cpan.org>
12 years agoCorrect errors in the use of multiple targets, which could break parallel make.
Nicholas Clark [Sun, 15 May 2011 16:20:42 +0000 (17:20 +0100)]
Correct errors in the use of multiple targets, which could break parallel make.

This was fixed in Makefile.SH in commit 0f13ebd5d71f8177.

12 years agoSort magic and magic vtable names in files generated by mg_vtable.pl
Nicholas Clark [Sun, 15 May 2011 15:33:02 +0000 (16:33 +0100)]
Sort magic and magic vtable names in files generated by mg_vtable.pl

Magic is sorted case insensitively, with upper case before lower case.
vtable names are all lowercase letters.

12 years agoGenerate magic_names in dump.c using mg_vtable.pl.
Nicholas Clark [Sun, 15 May 2011 15:25:34 +0000 (16:25 +0100)]
Generate magic_names in dump.c using mg_vtable.pl.

12 years agoGenerate the PERL_MAGIC_* defines using mg_vtable.pl.
Nicholas Clark [Sun, 15 May 2011 14:53:08 +0000 (15:53 +0100)]
Generate the PERL_MAGIC_* defines using mg_vtable.pl.

12 years agoIn PL_magic_data flag whether magic can be added to a readonly value.
Nicholas Clark [Sun, 15 May 2011 13:45:53 +0000 (14:45 +0100)]
In PL_magic_data flag whether magic can be added to a readonly value.

Use this to simplify the logic in Perl_sv_magic().

This introduces a small change of behaviour for error cases involving unknown
magic types. Previously, if Perl_sv_magic() was passed a magic type unknown to
it, it would

1: Croak "Modification of a read-only value attempted" if read only
2: Return without error if the SV happened to already have this magic
3: otherwise croak "Don't know how to handle magic of type \\%o"

Now it will always croak "Don't know how to handle magic of type \\%o", even
on read only values, or SVs which already have the unknown magic type.

12 years agoStore a flag for container/value magic in PL_magic_data.
Nicholas Clark [Sun, 15 May 2011 12:54:19 +0000 (13:54 +0100)]
Store a flag for container/value magic in PL_magic_data.

Use this to replace S_is_container_magic() in mg.c with a direct lookup.

12 years agoCreate a lookup table for magic vtables from magic type, PL_magic_data.
Nicholas Clark [Sun, 15 May 2011 12:21:09 +0000 (13:21 +0100)]
Create a lookup table for magic vtables from magic type, PL_magic_data.

Use it to eliminate the large switch statement in Perl_sv_magic().

As the table needs to be keyed on magic type, which is expressed as C character
constants, the order depends on the compiler's character set. Frustratingly,
EBCDIC variants don't agree on the code points for '~' and ']', which we use
here. Instead of having (at least) 4 tables, get the local runtime to sort the
table for us. Hence the regen script writes out the (unsorted) mg_raw.h, which
generate_uudmap sorts to generate mg_data.h

12 years agoRefactor generate_uudmap.c to use a helper function to output init blocks.
Nicholas Clark [Sun, 15 May 2011 11:02:28 +0000 (12:02 +0100)]
Refactor generate_uudmap.c to use a helper function to output init blocks.

In future, this will allow it to generate other output formats without
duplicating code.

12 years agoProvide the names of the magic vtables in PL_magic_vtable_names[].
Nicholas Clark [Sat, 14 May 2011 11:26:37 +0000 (12:26 +0100)]
Provide the names of the magic vtables in PL_magic_vtable_names[].

As it's a 1 to 1 mapping with the vtables in PL_magic_vtables[], refactor
Perl_do_magic_dump() to index into it directly to find the name for an
arbitrary mg_virtual, avoiding a long switch statement.

12 years agoReplace references to PL_vtbl_{bm,fm} in the code with PL_vtbl_regexp.
Nicholas Clark [Sat, 14 May 2011 08:41:18 +0000 (09:41 +0100)]
Replace references to PL_vtbl_{bm,fm} in the code with PL_vtbl_regexp.

Also, in Perl_sv_magic() merge the case for PERL_MAGIC_dbfile with the others
that return a NULL vtable.

12 years agoPL_vtbl_{bm,fm} can be aliases to PL_vtbl_regexp, instead of copies.
Nicholas Clark [Sat, 14 May 2011 08:16:30 +0000 (09:16 +0100)]
PL_vtbl_{bm,fm} can be aliases to PL_vtbl_regexp, instead of copies.

They became copies in 488344d27a84a21a, which merged Perl_magic_setbm() and
Perl_magic_setfm() into Perl_magic_setregexp().

12 years agoRefactor Perl_get_vtbl() to a small array lookup from a large switch statement.
Nicholas Clark [Fri, 13 May 2011 20:21:49 +0000 (21:21 +0100)]
Refactor Perl_get_vtbl() to a small array lookup from a large switch statement.

Provide magic_vtable_max, the number of elements in PL_magic_vtables[].

12 years agoTests for Perl_get_vtbl()
Nicholas Clark [Fri, 13 May 2011 20:06:29 +0000 (21:06 +0100)]
Tests for Perl_get_vtbl()

12 years agoReplace PL_vtbl_* with an array PL_magic_vtables.
Nicholas Clark [Fri, 13 May 2011 19:24:34 +0000 (20:24 +0100)]
Replace PL_vtbl_* with an array PL_magic_vtables.

Define each PL_vtbl_* name as a macro which expands to the correct array
element. Using a single array instead of multiple named variables will allow
the simplification of various pieces of code.

12 years agoGenerate the enum for want_vtbl_* with regen/mg_vtable.pl
Nicholas Clark [Fri, 13 May 2011 17:02:08 +0000 (18:02 +0100)]
Generate the enum for want_vtbl_* with regen/mg_vtable.pl

12 years agoRemove want_vtbl_{glob,symtab}, which aren't used and don't do anything useful.
Nicholas Clark [Fri, 13 May 2011 16:29:09 +0000 (17:29 +0100)]
Remove want_vtbl_{glob,symtab}, which aren't used and don't do anything useful.

Nothing visible on CPAN uses either. Passing either to Perl_get_vtbl() will
currently return NULL (as a runtime error, rather than a compile time error).

The case for want_vtbl_glob was removed from the switch in Perl_get_vtbl() in
c0c446747ad6c5bd (which eliminated the need for magic on typeglobs).
want_vtbl_symtab was added to the enum in perl.h with 8d2f45362e368d7d, but
no code was added to Perl_get_vtbl() as there is no corresponding vtable.

12 years agoMove the work of MGVTBL_SET() from the C pre-processor to mg_vtable.pl
Nicholas Clark [Fri, 13 May 2011 15:50:51 +0000 (16:50 +0100)]
Move the work of MGVTBL_SET() from the C pre-processor to mg_vtable.pl

Generating mg_vtable.h with MGVTBL_SET() effectively pre-expanded makes things
clearer. This eliminates use of the macro MGVTBL_SET(), which can be deleted
as nothing outside the core is relying on it.

12 years agoMove the cast for a magic vtable with const get into mg_vtable.h
Nicholas Clark [Fri, 13 May 2011 15:35:59 +0000 (16:35 +0100)]
Move the cast for a magic vtable with const get into mg_vtable.h

Putting the cast inside the initialiser (the only initialiser using it)
eliminates use of the macro MGVTBL_SET_CONST_MAGIC_GET(), which can be deleted
as nothing outside the core is relying on it.

12 years agoGenerate the definitions for magic vtables from data in a regen script.
Nicholas Clark [Fri, 13 May 2011 13:17:22 +0000 (14:17 +0100)]
Generate the definitions for magic vtables from data in a regen script.

Previously perl.h contained a long section of MGVTBL_SET() macros declaring
the core's various magic vtables. Convert the information into data structures
in a new script regen/mg_table.pl, and use this to generate a new file
mg_vtable.h, included by perl.h

This is the first step in reducing the number of places that data relating to
magic vtables is declared (and has to be kept in sync), and will allow more
flexibility in parts of the core's implementation.

12 years agoAbolish PL_vtbl_sig. It's been all 0s since it was added in 5.0 alpha 2.
Nicholas Clark [Fri, 13 May 2011 11:36:44 +0000 (12:36 +0100)]
Abolish PL_vtbl_sig. It's been all 0s since it was added in 5.0 alpha 2.

Magic with a NULL vtable is equivalent to magic with a vtable of all 0s.
On CPAN, only Apache::Peek's code for 5.005 is referencing it.

12 years agoDon't even declare PL_vtbl_sigelem under -DPERL_MICRO
Nicholas Clark [Fri, 13 May 2011 10:39:18 +0000 (11:39 +0100)]
Don't even declare PL_vtbl_sigelem under -DPERL_MICRO

This turns out to be a simpler solution than 9ba75e3cf905a6e6.

12 years agoStore FBMs in PVMGs, instead of GVs.
Nicholas Clark [Tue, 24 May 2011 14:11:53 +0000 (15:11 +0100)]
Store FBMs in PVMGs, instead of GVs.

This should reduce the complexity of code dealing with GVs, as they no longer
try to play several different incompatible roles.

(As suggested by Ben Morrow. However, it didn't turn out to be as
straightforward as one might have hoped).

12 years agoStore the BM table in mg_ptr instead of after SvCUR().
Nicholas Clark [Wed, 18 May 2011 10:45:22 +0000 (11:45 +0100)]
Store the BM table in mg_ptr instead of after SvCUR().

Previously the 256 byte Boyer-Moore table was stored in the buffer of SvPVX()
after the raw string by extending the buffer.

Given that the scalar is alway upgraded to add PERL_MAGIC_bm magic, to clear
the table and other flags, there's no extra memory cost in using mg_ptr in the
MAGIC struct to point directly to the table.

I believe that this removes the last place in the core that stores data beyond
SvCUR().

12 years agoExit early from Perl_fbm_compile() if the SV is already "compiled".
Nicholas Clark [Wed, 18 May 2011 09:49:43 +0000 (10:49 +0100)]
Exit early from Perl_fbm_compile() if the SV is already "compiled".

I believe that this can only happen if a constant subroutine is used more than
once as the second argument to index.

12 years agoIn Perl_fbm_instr(), use a switch() statement for the special case code.
Nicholas Clark [Tue, 17 May 2011 12:16:57 +0000 (13:16 +0100)]
In Perl_fbm_instr(), use a switch() statement for the special case code.

Previously the special-case code for lengths 0, 1 and 2 was in a nested set
of if() statements, which was slightly cryptic to read.

12 years agoIn Perl_fbm_compile(), use STRLEN instead of U32 to calculate BmPREVIOUS().
Nicholas Clark [Tue, 17 May 2011 11:28:36 +0000 (12:28 +0100)]
In Perl_fbm_compile(), use STRLEN instead of U32 to calculate BmPREVIOUS().

This should fix a theoretical bug on strings longer than 2**32 bytes where the
byte referenced by BmRARE() is at an offset beyond 2**32. I'm not sure how to
test this, as I think to trigger it one would need to have one of

a: the second argument to index as a string literal, longer than 2**32 bytes
b: a fixed string in a regex, longer than 2**32 bytes

12 years agoAbolish xbm_rare. Move BmUSEFUL() to union _xnvu and BmPREVIOUS() to the UV.
Nicholas Clark [Tue, 17 May 2011 09:26:49 +0000 (10:26 +0100)]
Abolish xbm_rare. Move BmUSEFUL() to union _xnvu and BmPREVIOUS() to the UV.

This reduces the complexity of the union declarations in sv.h.

As B.xs is accessing the structures/unions directly, instead of using the
macros, it needs a patch too.

12 years agoUse SvTAIL() instead of BmFLAGS(). The core no longer uses BmFLAGS().
Nicholas Clark [Mon, 9 May 2011 15:53:28 +0000 (16:53 +0100)]
Use SvTAIL() instead of BmFLAGS(). The core no longer uses BmFLAGS().

12 years agoEmulate the value of BmFLAGS() using SvTAIL().
Nicholas Clark [Mon, 9 May 2011 11:07:17 +0000 (12:07 +0100)]
Emulate the value of BmFLAGS() using SvTAIL().

Don't set BmFLAGS() in Perl_fbm_compile()

Originally fbm_compile() had an I32 flags argument, which seems to have been
part of case folding/locale improvements. bbce6d69784bf43b removed this.
SvTAIL() was only used in once place until c277df42229d99fe2779dcf1a3ceec16
added the U32 flags argument to fbm_compile(), not used until cf93c79d660ae36c.
That commit also added FBMcf_TAIL and FBMcf_TAIL{z,Z,DOLLAR} but didn't use the
last three. Additionally, it stored the BmFLAGS as part of the compiled table:

+       table[-1] = flags;              /* Not used yet */

f722798beaa43749 added FBMcf_TAIL_DOLLARM, renumbered FBMcf_TAIL{z,Z,DOLLAR},
but still didn't use anything other than FBMcf_TAIL.

The core, nothing on CPAN, and nothing visible to Google codesearch, has ever
used the 4 specialist flags. The only use is 0 or FBMcf_TAIL, which is in
lockstep with SvTAIL() of 0 or non-0.

12 years agoUse 0x40008000 in SvFLAGS() for SVpad_NAME, not 0x40000000
Nicholas Clark [Tue, 24 May 2011 10:17:13 +0000 (11:17 +0100)]
Use 0x40008000 in SvFLAGS() for SVpad_NAME, not 0x40000000

This eliminates potential confusion between SVpad_NAME and SVpbm_VALID.

12 years agoTest that SvFLAGS() & SVpad_NAME is SVpad_NAME, not just non-zero.
Nicholas Clark [Tue, 24 May 2011 09:59:01 +0000 (10:59 +0100)]
Test that SvFLAGS() & SVpad_NAME is SVpad_NAME, not just non-zero.

In Perl_find_rundefsv() and PAD_COMPNAME_FLAGS_isOUR(), replace longhand flags
test with SvPAD_OUR().

12 years agoDon't fbm_compile() studied scalars, to give more flexibility in SV flag usage.
Nicholas Clark [Mon, 23 May 2011 20:52:40 +0000 (21:52 +0100)]
Don't fbm_compile() studied scalars, to give more flexibility in SV flag usage.

No real-world code would ever end up using a studied scalar as a compile-time
second argument to index, so this isn't a real pessimisation.

12 years agoDon't allow study on an FBM scalar, to give more flexibility in SV flag usage.
Nicholas Clark [Mon, 23 May 2011 20:36:06 +0000 (21:36 +0100)]
Don't allow study on an FBM scalar, to give more flexibility in SV flag usage.

No real-world code would ever end up studying an FBM scalar, so this isn't a
real pessimisation.