This is a live mirror of the Perl 5 development currently hosted at
9 years agoFor shorter strings, store C<study>'s data as U8s or U16s, instead of U32s.
Nicholas Clark [Tue, 28 Jun 2011 13:20:56 +0000 (15:20 +0200)]
For shorter strings, store C<study>'s data as U8s or U16s, instead of U32s.

The assumption is that most studied strings are fairly short, hence the pain
of the extra code is worth it, given the memory savings.
80 character string, 336 bytes as U8, down from 1344 as U32
800 character string, 2112 bytes as U16, down from 4224 as U32

9 years agoStore C<study>'s data as U32s, instead of I32s.
Nicholas Clark [Tue, 28 Jun 2011 10:17:38 +0000 (12:17 +0200)]
Store C<study>'s data as U32s, instead of I32s.

The "no more" condition is now represented as ~0, instead of -1.

9 years agoTidy code in pp_study and Perl_screaminstr()
Nicholas Clark [Mon, 27 Jun 2011 19:13:39 +0000 (21:13 +0200)]
Tidy code in pp_study and Perl_screaminstr()

In pp_study eliminate the variable pos, which duplicates len. ch should be U8,
not I32.

In Perl_screaminstr(), move the declarations of s and x to their point of use,
convert a for loop to a while loop, and avoid incrementing and decrementing s.
found is a boolean.

9 years agoStore C<study>'s data in in mg_ptr instead of interpreter variables.
Nicholas Clark [Mon, 27 Jun 2011 18:51:04 +0000 (20:51 +0200)]
Store C<study>'s data in in mg_ptr instead of interpreter variables.

This allows more than one C<study> to be active at the same time.
It eliminates PL_screamfirst, PL_lastscream, PL_maxscream.

9 years agoMerge PL_scream{first,next} into one allocated buffer.
Nicholas Clark [Mon, 27 Jun 2011 15:58:10 +0000 (17:58 +0200)]
Merge PL_scream{first,next} into one allocated buffer.

Effectively, PL_screamnext is now PL_screamfirst + 256. The actual interpreter
variable PL_screamnext is eliminated.

9 years agoChange PL_screamnext to store absolute positions.
Nicholas Clark [Mon, 27 Jun 2011 15:14:39 +0000 (17:14 +0200)]
Change PL_screamnext to store absolute positions.

PL_screamnext gives the position of the next occurrence of the current octet.
Previously it stored this as an offset from the current position, with -pos
stored for "no more", so that the calculated new offset would be zero,
allowing a zero/non-zero loop exit test in Perl_screaminstr().

Now it stores absolute position, with -1 for "no more". Also codify -1 as the
"not present" value for PL_screamfirst, instead of any negative value.

9 years agoSplit out study magic from pos magic.
Nicholas Clark [Mon, 13 Jun 2011 14:24:23 +0000 (16:24 +0200)]
Split out study magic from pos magic.

study uses magic to call SvSCREAM_off() if the scalar is modified. Allocate it
its own magic type ('G' for now - pos magic is 'g'). Share the same "set"
routine and vtable as regexp/bm/fm (setregxp and vtbl_regexp).

9 years agoStop podcheck.t --add-link from chomping a new line
Father Chrysostomos [Fri, 1 Jul 2011 03:33:56 +0000 (20:33 -0700)]
Stop podcheck.t --add-link from chomping a new line

    # The rest of the db file is output unchanged.
    my_safer_print($copy_fh, join "\n", @existing_issues);

Well, actually that *does* change the file.  See the diff.

9 years agoAdd another address for Claes Jakobsson
Father Chrysostomos [Fri, 1 Jul 2011 02:19:14 +0000 (19:19 -0700)]
Add another address for Claes Jakobsson

9 years agoReport a better error when trying to use negative version numbers instead of 'Invalid...
Claes Jakobsson [Thu, 30 Jun 2011 20:09:13 +0000 (22:09 +0200)]
Report a better error when trying to use negative version numbers instead of 'Invalid version format (non-numeric data)' as it currently does. Also update documentation that version should be a positive number.

9 years agoChange the example in the Changes file to be more generic.
Jesse Vincent [Fri, 1 Jul 2011 00:40:54 +0000 (20:40 -0400)]
Change the example in the Changes file to be more generic.

Remove the releng step which required altering the Changes file
with a meaningless version bump

9 years agoThe regex engine can't assume that SvSCREAM() remains set on its target.
Nicholas Clark [Thu, 30 Jun 2011 11:00:47 +0000 (13:00 +0200)]
The regex engine can't assume that SvSCREAM() remains set on its target.

Callers to the engine set REXEC_SCREAM in the flags when the target scalar is
studied, and the engine should use the study data. It's possible for embedded
code blocks to cause the target scalar to stop being studied. Hence the engine
needs to check for this, instead of simply assuming that the study data is
present and valid to read. This resolves #92696.

9 years Nits in pod
Karl Williamson [Wed, 29 Jun 2011 17:45:54 +0000 (11:45 -0600)] Nits in pod

9 years agoUpdated Locale-Codes to CPAN version 3.17
Chris 'BinGOs' Williams [Tue, 28 Jun 2011 22:26:29 +0000 (23:26 +0100)]
Updated Locale-Codes to CPAN version 3.17


  VERSION 3.17 (2011-06-28)


  Added new types of codes

    Added Language Extension codes (langext) and Language Variation codes (langvar) as defined in the IANA language registry.

  Added new codeset(s)

    Added language codes from ISO 639-5

    Added language/script codes from the IANA language subtag registry

  Bug fixes

    Fixed an uninitialized value warning. RT 67438

    Fixed the return value for the all_XXX_codes and all_XXX_names functions. RT 69100

  Reorganized code

    Reorganized modules to move Locale::MODULE to Locale::Codes::MODULE to allow for cleaner future additions. The original
    four modules (Locale::Language, Locale::Currency, Locale::Country, Locale::Script) will continue to work, but all new
    sets of codes will be added in the Locale::Codes namespace.

9 years agoRT 64804: tainting with index() of a constant
David Mitchell [Tue, 28 Jun 2011 16:04:40 +0000 (17:04 +0100)]
RT 64804: tainting with index() of a constant

At compile time, ck_index with a tainted constant set PL_tainted,
which remained on during the rest of compilation, tainting all other

Fix this by saving and restoring PL_tainted across the call to
fbm_compile, which is what sets PL_tainted.

9 years agoTODO test for index() of a tainted constant
Niko Tyni [Fri, 17 Apr 2009 18:11:08 +0000 (21:11 +0300)]
TODO test for index() of a tainted constant

As reported by Adrian Irving-Beer in <>,
this unexpectedly throws a fatal taint error:

    #!/usr/bin/perl -T
    use constant C_A => $ARGV[0];
    use constant C_B => $ARGV[1];
    index(C_A, C_B);
    open(FOO, "-|");

The TODO test is reduced from the above.

9 years agoperlrun: reflow to fit vertabims in 80 cols
Karl Williamson [Mon, 27 Jun 2011 22:20:09 +0000 (16:20 -0600)]
perlrun: reflow to fit vertabims in 80 cols

This leaves a couple > 80 which are hard to reflow

9 years agoPush the atime and mtime of generated Makefile.PLs back 4 seconds in
Chris 'BinGOs' Williams [Mon, 27 Jun 2011 20:08:14 +0000 (21:08 +0100)]
Push the atime and mtime of generated Makefile.PLs back 4 seconds in

In certain circumstances ( on virtual machines ) the generated Makefile.PL can
produce a Makefile that is older than the Makefile.PL

Altering the atime and mtime backwards by 4 seconds seems to resolve the issue.

9 years agoFix context propagation below return()
Vincent Pit [Mon, 27 Jun 2011 13:01:30 +0000 (15:01 +0200)]
Fix context propagation below return()

A.k.a. "RT #38809 strikes back".

Back in the time of perl 5.003, there was no void context, so "do" blocks
below a return needed special handling to use the dynamic context of the
caller instead of the static context implied by the return op location.

But nowadays context is applied by the scalarvoid(), scalar() and list()
functions, and they all already skip the return ops. "do" blocks below a
return don't get a static context, and GIMME_V ought to correctly return
the caller's context. The old workaround isn't even required anymore.

9 years agoTest taintedness of values returned by given/when
Vincent Pit [Mon, 27 Jun 2011 08:09:00 +0000 (10:09 +0200)]
Test taintedness of values returned by given/when

9 years agoIn leavewhen, put the SP back when returning
Vincent Pit [Mon, 27 Jun 2011 07:37:30 +0000 (09:37 +0200)]
In leavewhen, put the SP back when returning

It may have changed in adjust_stack_on_leave() if the stack needed to be

9 years agoMake sure break() resets the sp at its original level
Vincent Pit [Mon, 27 Jun 2011 07:35:57 +0000 (09:35 +0200)]
Make sure break() resets the sp at its original level

10 years agoCorrectly preserve the stack on an implicit break.
Vincent Pit [Sat, 25 Jun 2011 21:36:50 +0000 (23:36 +0200)]
Correctly preserve the stack on an implicit break.

Perl generates a 'break' op with the special flag set at the end of every
'when' block. This makes it difficult to handle both the case of an
implicit break, where the stack has to be preserved, and the case of an
explicit break, which must obliterate the stack, with the same pp function.
Stack handling should naturally occur in 'leavewhen', but it is effectively
called only when the block issues a 'continue'.

In order to preserve the stack, we change the respective roles of 'break',
'continue' and 'leavewhen' ops :
- Special 'break' ops are no longer generated for implicit breaks. Just as
before, they give the control back to the 'leavegiven' op.
- 'continue' ops now directly forward to the op *following* the 'leavewhen'
op of the current 'when' block.
- 'leavewhen' is now only called at the natural end of a 'when' block.
It adjusts the stack to make sure returned values survive the temp cleanup,
then issues a 'next' or go to the current 'leavegiven' depending on whether
it is enclosed in a for loop or a given block.

This fixes [perl #93548].

10 years agoConvert pp_leave() to adjust_stack_on_leave()
Vincent Pit [Sat, 25 Jun 2011 12:28:12 +0000 (14:28 +0200)]
Convert pp_leave() to adjust_stack_on_leave()

10 years agoMove pp_enter() and pp_leave() with their friends in pp_ctl.c
Vincent Pit [Sat, 25 Jun 2011 12:25:25 +0000 (14:25 +0200)]
Move pp_enter() and pp_leave() with their friends in pp_ctl.c

10 years agoFactor stack adjustments on leave in a new static function
Vincent Pit [Sat, 25 Jun 2011 09:53:48 +0000 (11:53 +0200)]
Factor stack adjustments on leave in a new static function

This is just a refactoring. There should be no functional changes.

10 years agofold_grind.t: Add comments
Karl Williamson [Fri, 3 Jun 2011 04:14:37 +0000 (22:14 -0600)]
fold_grind.t: Add comments

10 years Don't list experimental functions in API
Karl Williamson [Fri, 3 Jun 2011 04:10:07 +0000 (22:10 -0600)] Don't list experimental functions in API

10 years agoDon't quote target name in
Craig A. Berry [Sat, 25 Jun 2011 19:31:44 +0000 (14:31 -0500)]
Don't quote target name in

Even though it's presumably doing case-blind lookups of target
names, MMS currently (V3.9-00) falls down hard when passed a
target name in lower case.

10 years agoFix two podchecker errors on perlunicode.pod
Nicholas Clark [Sat, 25 Jun 2011 09:57:14 +0000 (11:57 +0200)]
Fix two podchecker errors on perlunicode.pod

Add Unicode::Regex::Set to the list of known CPAN modules.
Reflow a verbatim block to fit within the column limit.

10 years agoadd do_ncmp fn and make pp_ncmp, pp_eq etc use it
David Mitchell [Wed, 22 Jun 2011 09:59:18 +0000 (10:59 +0100)]
add do_ncmp fn and make pp_ncmp, pp_eq etc use it

Extract most of the body of pp_ncmp() (numeric compare) into a separate
function, do_ncmp(), then make the following ops use it:

This removes a lot of similar or duplicated code, most of which is
dedicated to handling the various combinations of IV verses UV verses NV
verses NaN.

The various ops first check for, and directly process, the simple and common
case of both args being SvIOK_notUV(), and pass the processing on to
do_ncmp() otherwise. Benchmarking seems to indicate (but with a lot of
noise) that the SvIOK_notUV case is slightly faster than before, and the
do_ncmp() branch slightly slower.

10 years agopp_ncmp: favour the non- Perl_isnan route
David Mitchell [Tue, 21 Jun 2011 16:32:20 +0000 (17:32 +0100)]
pp_ncmp: favour the non- Perl_isnan route

Currently pp_ncmp(), when comparing two NVs, prefers to check its two args
for NaNness first, and if either of them are, then return undef.  Only if
Perl_isnan isn't defined does it fall back to doing three compares (<, >,
=) where if all three fail it returns undef.

This is in contrast to the other compare functions (e.g. pp_lt), which
only use Perl_isnan if NAN_COMPARE_BROKEN is defined - i.e. they prefer to
rely on the '<' (or whatever) test to handle NaNs implicitly.

Change pp_ncmp to favour not using Perl_isnan(). This has two advantages:

First, speed: in the normal case we replace:
    two function calls to Perl_isnan plus two comparisons,
    three comparisons.

Second, this makes pp_ncmp more similar to the other comparison functions,
allowing for code reuse in the future.

10 years agoremove unreachable code from various compare ops
David Mitchell [Tue, 21 Jun 2011 13:40:12 +0000 (14:40 +0100)]
remove unreachable code from various compare ops

All the compare ops (such as pp_le), have an initial:

    tryAMAGICbin_MG(le_amg, AMGf_numeric);

The effect of the AMGf_numeric flag is that, if the le overloading fails,
but either of the args on the stack is a reference, then that arg is
replaced with a temporary non-ref arg that is either the result of
'0+' overloading, or is a UV with the numerical value of the ref's
address.  So by the time the main body of the op is called, neither arg
can be a ref.

Thus a whole bunch of nearly identical blocks can be removed, which *used*
to handle comparing refs:

    if (SvROK(TOPs) && !SvAMAGIC(TOPs) && SvROK(TOPm1s) && !SvAMAGIC(TOPm1s)) {
        SETs(boolSV(SvRV(TOPs) <= SvRV(TOPp1s)));

10 years agoExpand bump RT version number in Porting/release_managers_guide.pod
Leon Brocard [Sat, 25 Jun 2011 06:45:42 +0000 (07:45 +0100)]
Expand bump RT version number in Porting/release_managers_guide.pod

Robert generally adds future versions, so check first whether he
has first.

10 years agofix `perldoc -v '$0'`
Alan Haggai Alavi [Sat, 25 Jun 2011 05:01:04 +0000 (10:31 +0530)]
fix `perldoc -v '$0'`

Presently, `perldoc -v '$0'` fetches the entry for $<digits> ($1, $2,
...) instead of $0 ($PROGRAM_NAME).

10 years agoIncrease $Pod::Perldoc::VERSION
Father Chrysostomos [Sat, 25 Jun 2011 05:55:47 +0000 (22:55 -0700)]
Increase $Pod::Perldoc::VERSION

in preparation for the next commit.

10 years agoperldelta entry for #93454
Father Chrysostomos [Fri, 24 Jun 2011 19:31:12 +0000 (12:31 -0700)]
perldelta entry for #93454

10 years agoTiny comment typo fix in handy.h
Father Chrysostomos [Fri, 24 Jun 2011 16:29:39 +0000 (09:29 -0700)]
Tiny comment typo fix in handy.h

10 years agoCorrect comment that 903fd87c missed
Father Chrysostomos [Fri, 24 Jun 2011 16:22:49 +0000 (09:22 -0700)]
Correct comment that 903fd87c missed

10 years agoperlunicode: Nits
Karl Williamson [Fri, 24 Jun 2011 18:34:46 +0000 (12:34 -0600)]
perlunicode: Nits

a missing word, remove L<> from a verbatim block, add L<> for a module,
clarify wording

10 years agocast unsigned to avoid warning
Robin Barker [Thu, 23 Jun 2011 18:12:59 +0000 (19:12 +0100)]
cast unsigned to avoid warning

Add a cast C<(unsigned)> to silence a compiler warning [-Wsign-compare]

10 years ago[perl #93454] Free deleted iterator when freeing hash
Father Chrysostomos [Fri, 24 Jun 2011 15:17:28 +0000 (08:17 -0700)]
[perl #93454] Free deleted iterator when freeing hash

Commit 7d6175e, which did a fix-up after commit e0171a1a3, which
introduced hfree_next_entry, did not account for the fact that
hfree_next_entry frees the hash iterator before removing and returning
the next value.

It changed the callers to check the number of keys to determine
whether anything else needed to be freed, which meant that
hfree_next_entry was called one time less than necessary on hashes
whose current iterator had been deleted and which consequently
appeared empty.

This fixes that.

I don’t know how to test it, but the string table warnings were caus-
ing test failures on VMS, so maybe that’s good enough.

10 years agoBypass a switch in gv_fetchpvn for 2-char symbols
Father Chrysostomos [Fri, 24 Jun 2011 13:20:16 +0000 (06:20 -0700)]
Bypass a switch in gv_fetchpvn for 2-char symbols

The switch that checks for ISA, EXPORT, etc. in packages other
than main was guarded with an if(len>1) statement.  Since ISA is
three characters, we can bypass that entire switch for two-charac-
ter symbols.

10 years agoUpdate proto docs after prev commit
Father Chrysostomos [Fri, 24 Jun 2011 06:22:29 +0000 (23:22 -0700)]
Update proto docs after prev commit

10 years agoAllow the \$ proto to accept any scalar lvalue [perl #91846]
Father Chrysostomos [Fri, 24 Jun 2011 06:14:17 +0000 (23:14 -0700)]
Allow the \$ proto to accept any scalar lvalue [perl #91846]

This makes the \$ prototype’s parsing the same as the second argument
to read(), making it possible to create a custom myread() function
that has the same syntax.

This is handled in two places in the prototype-parsing code, to avoid
calling scalar() on the op if another character in \[...] will accept
it.  I don’t know what the consequences of that would be.  So it calls
Perl_op_lvalue_flags in the $ case only if it is not inside brackets.
Then in the ] case it checks to see whether there was a $.

OP_READ, not OP_ENTERSUB, is passed as the type to
Perl_op_lvalue_flags, since OP_ENTERSUB would allow sub foo(\$) to
accept an array as an argument.  OP_RECV and OP_SYSREAD would have
worked, too.

10 years agoMake Perl_op_lvalue_flags provide a no-croak option
Father Chrysostomos [Fri, 24 Jun 2011 04:58:29 +0000 (21:58 -0700)]
Make Perl_op_lvalue_flags provide a no-croak option

This is in preparation for making the \$ prototype accept any lvalue.

10 years agoop_lvalue .= _flags
Father Chrysostomos [Fri, 24 Jun 2011 04:48:07 +0000 (21:48 -0700)]
op_lvalue .= _flags

Add flags param to op_lvalue, so that the caller can ask it not to
croak when encountering an unmodifiable op (upcoming).

This is in preparation for making the \$ prototype accept any lvalue.

There is no mathom, as the changes that this will support
are by no means suitable for maint.

10 years agoproto.t: Test \$ with subcall()->[elem]
Father Chrysostomos [Thu, 23 Jun 2011 22:01:42 +0000 (15:01 -0700)]
proto.t: Test \$ with subcall()->[elem]

This syntax was documented, but there was no test for it.

10 years agoRemove two tests from proto.t
Father Chrysostomos [Thu, 23 Jun 2011 21:58:16 +0000 (14:58 -0700)]
Remove two tests from proto.t

These have been superseded by t/op/cproto.t, which came later.

10 years agoMake pp_leavesublv use S_return_lvalues
Father Chrysostomos [Thu, 23 Jun 2011 17:29:57 +0000 (10:29 -0700)]
Make pp_leavesublv use S_return_lvalues

The returning code is now almost identical, due to the preceding com-
mits, so they can be merged.

10 years agorealclean clean-up on VMS.
Craig A. Berry [Fri, 24 Jun 2011 14:44:16 +0000 (09:44 -0500)]
realclean clean-up on VMS.

Update a few missing or moved items in the realclean target.

10 years agopreplibrary needs an explicit action in descrip_mms.template.
Craig A. Berry [Thu, 23 Jun 2011 17:55:19 +0000 (12:55 -0500)]
preplibrary needs an explicit action in descrip_mms.template.

Even if that action says "Don't do anything."  MMK silently ignores
this but MMS falls down hard with:

%MMS-F-GWKNOACTS, Actions to update PREPLIBRARY are unknown.

This was broken in ebca06e95b02d1a8cf073328af30c9f4b9af6891.

10 years agoFix explicit return of pad var in list lv context
Father Chrysostomos [Thu, 23 Jun 2011 16:44:45 +0000 (09:44 -0700)]
Fix explicit return of pad var in list lv context

This is something that commit e08be60 missed, though it never worked
properly, even in 5.14, as explicit return from lvalue subs used to
copy return values.

As the commit message for e08be60 states, returning a scalar itself
from an lvalue sub does not work if it is a pad variable with a refer-
ence count of 1, because the sub-popping code clears it on exit.

The one code path that did not account for this was list lvalue con-
text (real lvalue context, not just potentially lvalue).  The only
observable effect this has is that assigning to a magic pad variable
returned from a subroutine in list context will not trigger set-magic.

This commit fixes it and also adds tests for returned magic pad vars
in all combinations of list/scalar lvalue/ref context.

10 years agoCollapse the list context code in pp_leavesublv
Father Chrysostomos [Thu, 23 Jun 2011 15:16:03 +0000 (08:16 -0700)]
Collapse the list context code in pp_leavesublv

Two branches of this three-branch if/elsif were doing the same thing.
One was written out longhand.

10 years agoRemove now-redundant check from pp_ctl.c:S_return_lvalues
Father Chrysostomos [Thu, 23 Jun 2011 13:16:12 +0000 (06:16 -0700)]
Remove now-redundant check from pp_ctl.c:S_return_lvalues

This has been redundant since commit d25b0d7.

10 years agoMention bump-perl-version's inplace mode in Porting/release_managers_guide.pod
Leon Brocard [Thu, 23 Jun 2011 17:07:41 +0000 (18:07 +0100)]
Mention bump-perl-version's inplace mode in Porting/release_managers_guide.pod

10 years agoSeeing as Porting/bump-perl-version is run in a git directory,
Leon Brocard [Thu, 23 Jun 2011 16:39:23 +0000 (17:39 +0100)]
Seeing as Porting/bump-perl-version is run in a git directory,
instead of writing a diff file and then applying it, this adds
a -i option which makes the changes inplace

10 years agoMove Porting/bump-perl-version to use autodie
Leon Brocard [Thu, 23 Jun 2011 15:05:06 +0000 (16:05 +0100)]
Move Porting/bump-perl-version to use autodie

10 years agoExtract the code the maps from an author/distribution to a
Leon Brocard [Thu, 23 Jun 2011 14:26:12 +0000 (15:26 +0100)]
Extract the code the maps from an author/distribution to a
CPAN URL into its own subroutine: cpan_url_distribution()
in Porting/core-cpan-diff

10 years agoTest studied scalars with s///ge.
Nicholas Clark [Thu, 16 Jun 2011 20:31:07 +0000 (22:31 +0200)]
Test studied scalars with s///ge.

10 years agostudy now passes REXEC_SCREAM to the regex engine when SvSCREAM() is true.
Nicholas Clark [Wed, 15 Jun 2011 11:05:11 +0000 (13:05 +0200)]
study now passes REXEC_SCREAM to the regex engine when SvSCREAM() is true.

This causes the regex engine to take advantage of the study data.

10 years agoFix up some tests in sub_lval.t
Father Chrysostomos [Thu, 23 Jun 2011 06:04:02 +0000 (23:04 -0700)]
Fix up some tests in sub_lval.t

One test was disabled long ago

Returning undef in list context was allowed by change 10777 (f206cdd)
in 2001.  There was already a test for disallowing it.  That test was
disabled by change 10779 (4c8a4e58), rather than correct to test the
new behaviour.

This commit changes it to test that undef return is allowed in list
context, also adding a test for explicit return.

10 years agoMake lvalue return make the same checks as leavesublv
Father Chrysostomos [Thu, 23 Jun 2011 05:58:45 +0000 (22:58 -0700)]
Make lvalue return make the same checks as leavesublv

This causes explicit return in lvalue context to die the way implicit
return does.  See the tests and the perldelta entry in the diff.

10 years agopp_leavesublv: Put the deref code inside if(scalar)
Father Chrysostomos [Thu, 23 Jun 2011 02:03:32 +0000 (19:03 -0700)]
pp_leavesublv: Put the deref code inside if(scalar)

No need to check it in list context (but still assert that).

10 years agoMake pp_leavesublv switch based on gimme
Father Chrysostomos [Thu, 23 Jun 2011 01:59:02 +0000 (18:59 -0700)]
Make pp_leavesublv switch based on gimme

Put if(gimme == ...) on the outside and if(CxLVAL(cx)...) on the
inside.  This reduces the amount of code, since the OPpENTERSUB_INARGS
case and the !CxLVAL case were both doing the same thing for scalars.

10 years agoRemoved unused label from pp_leavesublv
Father Chrysostomos [Thu, 23 Jun 2011 01:39:10 +0000 (18:39 -0700)]
Removed unused label from pp_leavesublv

This has been unused since e178c744.

10 years agoCopy PADTMPs explicitly returned from lv subs
Father Chrysostomos [Thu, 23 Jun 2011 01:37:59 +0000 (18:37 -0700)]
Copy PADTMPs explicitly returned from lv subs

I don’t believe this changes any observable behaviour, Devel::Peek
aside.  If it does, it fixes bugs.

I am making this change for two reasons:
• PADTMPs can be a bit buggy and letting them escape their subroutines
  can make the bugs harder to fix.
• This brings explicit and implicit return from lvalue subroutines one
  step closer (for the sake of merging the code).

10 years agoDuplicate in list of .h files on VMS.
Craig A. Berry [Thu, 23 Jun 2011 12:57:09 +0000 (07:57 -0500)]
Duplicate in list of .h files on VMS.

This is a bug I introduced in 66b82e1fdff51a4c821a3a249fe707cf8014a185.
Surprising it hasn't caused more trouble.  When building with MMS, it's
a hard error, whereas MMK silently ignores it.

10 years agoFor s///r, avoid copying the source early only to edit it in place.
Nicholas Clark [Fri, 17 Jun 2011 14:40:30 +0000 (16:40 +0200)]
For s///r, avoid copying the source early only to edit it in place.

Instead, take advantage of the "can't edit in place" code path of pp_subst
which writes to a new scalar, and that pp_substcont always leaves the original
intact, writing to a new scalar.

10 years agoAdd PERL_NO_GET_CONTEXT to Math::BigInit::FastCalc.
Nicholas Clark [Sat, 18 Jun 2011 17:40:26 +0000 (19:40 +0200)]
Add PERL_NO_GET_CONTEXT to Math::BigInit::FastCalc.

For threaded platforms, this reduces the object code size significantly, and
should slightly reduce CPU usage.

10 years agoTwo small tidying refactors for
Nicholas Clark [Mon, 20 Jun 2011 09:09:34 +0000 (11:09 +0200)]
Two small tidying refactors for

Make the order of backslash and forward slash in character classes consistent.
Move the top level modification of $0 adjacent to the top level modification of

10 years agoFix a (back)slash bug in a regex, added with the regex itself.
Nicholas Clark [Mon, 20 Jun 2011 08:56:48 +0000 (10:56 +0200)]
Fix a (back)slash bug in a regex, added with the regex itself.

8fcfece7bab67639 added code to TestInit to set the CWD and @INC for tests in
ext. However, the regex used to distinguish where a test was had one forward
slash where a backslash should have been, hence the intended Win32 support
would not work. I'm assuming that no-one has noticed this because no-one has
tried to run tests from the command line on Win32 directly, or if they have
they always use forward slashes in their pathnames.

10 years agoIn TestInit, eliminate @new_inc, by assigning to @INC directly.
Nicholas Clark [Mon, 20 Jun 2011 08:50:50 +0000 (10:50 +0200)]
In TestInit, eliminate @new_inc, by assigning to @INC directly.

To decide whether to default, we can test $set_opt instead of whether @new_inc
is empty, as all places that assign to @new_inc (now to @INC) also set

10 years agoIn TestInit, inline new_inc() and set_opt() into import(), their only caller.
Nicholas Clark [Mon, 20 Jun 2011 08:33:23 +0000 (10:33 +0200)]
In TestInit, inline new_inc() and set_opt() into import(), their only caller.

10 years agoIn find_git_or_skip(), also check whether we have a working git executable.
Nicholas Clark [Sun, 19 Jun 2011 20:06:08 +0000 (22:06 +0200)]
In find_git_or_skip(), also check whether we have a working git executable.

Otherwise we trip up if someone copies an entire git checkout to another
machine that doesn't have (or support git), or NFS mounts their active
checkout onto it, or simply doesn't have git in their PATH currently.

10 years agofind_git_or_skip() will now follow symlinks and chdir to the real source tree.
Nicholas Clark [Sun, 19 Jun 2011 19:44:37 +0000 (21:44 +0200)]
find_git_or_skip() will now follow symlinks and chdir to the real source tree.

porting{authors,cmp_version,manifest}.t now use TestInit qw(T A) to set @INC
and $^X to absolute paths, in case find_git_or_skip() changes directory.
As $^X is now absolute, there's no need to choose between '/' and '\\' based
on $^O.

10 years agoUse find_git_or_skip() in porting{authors,cmp_version,manifest}.t
Nicholas Clark [Sun, 19 Jun 2011 18:35:39 +0000 (20:35 +0200)]
Use find_git_or_skip() in porting{authors,cmp_version,manifest}.t

Correct the skip count in t/porting/manifest.t. Not that this matters
currently, as the SKIP block holds the last tests in the file, and the script
uses done_testing() instead of a plan up front.

10 years agoAdd find_git_or_skip(), which skips if we are not in a git checkout.
Nicholas Clark [Sun, 19 Jun 2011 18:34:37 +0000 (20:34 +0200)]
Add find_git_or_skip(), which skips if we are not in a git checkout.

10 years agouse TestInit 'T' in porting{authors,cmp_version,manifest}.t to chdir '..'
Nicholas Clark [Sun, 19 Jun 2011 17:56:57 +0000 (19:56 +0200)]
use TestInit 'T' in porting{authors,cmp_version,manifest}.t to chdir '..'

These three tests run git commands from the top level of the build tree, so
need to chdir '..' if run from 't'. use TestInit 'T' to do this, as it simplify
adapting the tests to also work when the build tree is a symlink forest from
-Dmksymlinks. TestInit also sets $ENV{PERL5LIB}, avoiding the need to use -Ilib
on the command line of the programs they run.

t/porting/manifest.t now runs throughout at the top level, which simplifies it

10 years agoAdd an import option 'T' to TestInit, for tests that run at the top level.
Nicholas Clark [Sun, 19 Jun 2011 17:39:07 +0000 (19:39 +0200)]
Add an import option 'T' to TestInit, for tests that run at the top level.

This sets @INC to 'lib, and unless we're already at the top level will
chdir '..' [on the assumption that we are starting in t].

10 years agoIn, move the default chdir and @INC code into import().
Nicholas Clark [Sun, 19 Jun 2011 17:10:51 +0000 (19:10 +0200)]
In, move the default chdir and @INC code into import().

The behaviour is consistent with previous behaviour, as the equivalent of the
new code used to be run at the top level, hence would happen (unconditionally)
before import() was called.

10 years agoIn, merge two substitutions into one.
Nicholas Clark [Sun, 19 Jun 2011 16:13:38 +0000 (18:13 +0200)]
In, merge two substitutions into one.

Both are intended to transform ./perl into ../../perl, one for forward slashes,
one for backslashes.

10 years agoRemove another CvLVALUE check from pp_leavesublv
Father Chrysostomos [Wed, 22 Jun 2011 15:36:45 +0000 (08:36 -0700)]
Remove another CvLVALUE check from pp_leavesublv

10 years agoMove pp_leavesublv from pp_hot.c to pp_ctl.c
Father Chrysostomos [Wed, 22 Jun 2011 15:35:03 +0000 (08:35 -0700)]
Move pp_leavesublv from pp_hot.c to pp_ctl.c

This is so that it can share code with pp_return.  I was going to move
pp_return into pp_hot.c, but it uses static functions that other pp_
functions in pp_ctl.c use.

10 years agoRemove the CvLVALUE check from pp_leavesub
Father Chrysostomos [Wed, 22 Jun 2011 15:32:36 +0000 (08:32 -0700)]
Remove the CvLVALUE check from pp_leavesub

As of bb3abb0, this can no longer happen.

10 years agoUpdate IO-Compress to CPAN version 2.037
Chris 'BinGOs' Williams [Wed, 22 Jun 2011 16:10:36 +0000 (17:10 +0100)]
Update IO-Compress to CPAN version 2.037


  2.037 22 June 2011

      * IO::Uncompress
        - get globmapper tests working on VMS
          [RT# 68926]

      * IO::Uncompress::Unzip
        - Fixed limitation where Streamed Stored content was not supported.

10 years agoUpdate Compress-Raw-Zlib to CPAN version 2.037
Chris 'BinGOs' Williams [Wed, 22 Jun 2011 15:53:47 +0000 (16:53 +0100)]
Update Compress-Raw-Zlib to CPAN version 2.037


  2.037 22 June 2011

      * No Changes

10 years agoUpdate Compress-Raw-Bzip2 to CPAN version 2.037
Chris 'BinGOs' Williams [Wed, 22 Jun 2011 15:50:10 +0000 (16:50 +0100)]
Update Compress-Raw-Bzip2 to CPAN version 2.037


  2.037 22 June 2011

      * No Changes

10 years agoUpdate IPC-Cmd to CPAN version 0.72
Chris 'BinGOs' Williams [Wed, 22 Jun 2011 15:41:43 +0000 (16:41 +0100)]
Update IPC-Cmd to CPAN version 0.72


  Changes for 0.72    Wed Jun 22 12:29:59 BST 2011
  * Added IPC::Open3 support for capturing STDOUT/STDERR
    on MSWin32, prefer this over IPC::Run

10 years agoattrs.t: Test for something I almost broke
Father Chrysostomos [Wed, 22 Jun 2011 15:19:55 +0000 (08:19 -0700)]
attrs.t: Test for something I almost broke

10 years warn & don’t apply :lvalue to defined subs
Father Chrysostomos [Wed, 22 Jun 2011 06:02:25 +0000 (23:02 -0700)] warn & don’t apply :lvalue to defined subs

This is something that ‘sub foo :lvalue;’ declarations do.  This brings in line with them.

See commits fff96ff and 885ef6f, ticket #68758, and

10 years agoIncrease $attributes::version to 0.15
Father Chrysostomos [Tue, 21 Jun 2011 21:52:50 +0000 (14:52 -0700)]
Increase $attributes::version to 0.15

I’m about to make changes to it.

10 years agoIn Cwd.xs, swap to defaulting to disabled prototypes.
Nicholas Clark [Sat, 18 Jun 2011 14:34:50 +0000 (16:34 +0200)]
In Cwd.xs, swap to defaulting to disabled prototypes.

As only 1 function enables prototypes, it seems sensible to set the default to
the majority case.

10 years agoMerge the implementation of Cwd::{fastcwd,getcwd} using ALIAS.
Nicholas Clark [Sat, 18 Jun 2011 14:13:00 +0000 (16:13 +0200)]
Merge the implementation of Cwd::{fastcwd,getcwd} using ALIAS.

10 years agoIn Cwd.xs on VMS, don't compile bsd_realpath() at all.
Nicholas Clark [Sat, 18 Jun 2011 13:09:24 +0000 (15:09 +0200)]
In Cwd.xs on VMS, don't compile bsd_realpath() at all.

On VMS, call Perl_rmsexpand() directly from abs_path(), instead of making
bsd_realpath() a trivial wrapper to Perl_rmsexpand().

Initialise path at the point of declaration, instead of separately. Use
sv_setpv_mg() instead of sv_setpvn() with an explicit strlen(), changing
PUSHTARG to PUSHs(TARG) to avoid setting magic twice.

10 years agoAdd PERL_NO_GET_CONTEXT to Cwd.
Nicholas Clark [Sat, 18 Jun 2011 12:46:08 +0000 (14:46 +0200)]

10 years agoIn Cwd::_win32_cwd() avoid a string eval when checking if we're miniperl.
Nicholas Clark [Sat, 18 Jun 2011 12:42:07 +0000 (14:42 +0200)]
In Cwd::_win32_cwd() avoid a string eval when checking if we're miniperl.

To allow ExtUtils::MakeMaker to run tests as if it's "miniperl" we need to avoid
taking any sort of reference to the typeglob or the code in the optree, as its
test modules are loaded later than Cwd. Previously this was done with a string
eval, but that was causing problems (for unclear reasons - #56225).
Using a symbol table lookup and *foo{THING} syntax avoids the string eval.

Evolved from a suggestion by Reini Urban.

10 years agoTrim multiple blank lines above =item in pod files.
Nicholas Clark [Wed, 22 Jun 2011 10:44:05 +0000 (12:44 +0200)]
Trim multiple blank lines above =item in pod files.

This makes many documents more consistent in their pod formatting. Don't trim
blank lines between verbatim blocks and =item, as removing them makes the (raw)
pod harder to read.

10 years agoThe podchecker much prefers a forward slash in F<symbian/TODO>
Nicholas Clark [Wed, 22 Jun 2011 09:56:50 +0000 (11:56 +0200)]
The podchecker much prefers a forward slash in F<symbian/TODO>

It looks for the file within the F<> - on *nix, 'symbian\TODO' doesn't exist,
so the line is flagged as a known issue. On Windows, it does exist (because
at the API level, / and \ are both valid as directory separators), so there is
no known issue, and the test fails with a request to delete the known issue.

README.symbian is not consistent in its use of backward or forward slashes
inside F<> markup, so this isn't the first use of a forward slash.

(The podchecker has other exemption rules for F<>, hence why this doesn't
matter in some cases.)

10 years agoUpdate IO-Compress to CPAN version 2.036
Chris 'BinGOs' Williams [Tue, 21 Jun 2011 20:41:34 +0000 (21:41 +0100)]
Update IO-Compress to CPAN version 2.036


  2.036 18 June 2011

      * IO::Compress::Zip & IO::Uncompress::Unzip
        - Added support for LZMA (method 14) compression/uncompresion.

      * IO::Compress::Unzip
        - Fixed CRC issue when compression is Store or Bzip2 and Strict option
          is set.

      * IO::Compress::Zip
        - Fixed Zip64 issue where the content size is exactly 0xFFFFFFFF