This is a live mirror of the Perl 5 development currently hosted at
7 years agoimprove and reword README.win32
Daniel Dragan [Tue, 7 Oct 2014 06:47:15 +0000 (02:47 -0400)]
improve and reword README.win32

7 years agofix op/infnan.t failures on VC 6
Daniel Dragan [Tue, 7 Oct 2014 05:44:44 +0000 (01:44 -0400)]
fix op/infnan.t failures on VC 6

fixes 2 failures, first is a fatal error, sceond is a not ok
ok 460 - abs(NaN) is NaN
ok 461 - int(NaN) is NaN
Can't take sqrt of NaN at op/infnan.t line 319.
ok 465 - sin(NaN) is NaN
not ok 466 - rand(NaN) is NaN
# Failed test 466 - rand(NaN) is NaN at op/infnan.t line 331
#      got "0.20653527722801"
# expected "NaN"
ok 467 - sin(9**9**9) is NaN

7 years agoMollify concise-xs.t
Father Chrysostomos [Tue, 7 Oct 2014 05:10:40 +0000 (22:10 -0700)]
Mollify concise-xs.t

7 years agoDeparse foreach state $x
Father Chrysostomos [Tue, 7 Oct 2014 04:59:16 +0000 (21:59 -0700)]
Deparse foreach state $x

B::Deparse was emitting ‘foreach my’ instead of ‘foreach state’.

This example prints 1:

use feature ':all'; no warnings experimental;
sub f {
  my sub foo;
  foo(), return if @_;
  for state $x (1) {
    sub foo { print $x, "\n" }

If you change ‘state’ to ‘my’, it prints nothing.

So there is a difference between ‘for my’ and ‘for state’.  (At first
I thought there might not be.)

7 years agoDeparse.t: Delete a test
Father Chrysostomos [Tue, 7 Oct 2014 03:39:12 +0000 (20:39 -0700)]
Deparse.t: Delete a test

It was identical to one 3 tests earlier.

7 years agoop_reg_common.h: Nits
Karl Williamson [Mon, 29 Sep 2014 18:41:42 +0000 (12:41 -0600)]
op_reg_common.h: Nits

Add missing U suffix to unsigned numeric constant; parenthesize macro
expansions for safety.

7 years agoFinish deparsing ‘my sub if; CORE::if...’
Father Chrysostomos [Tue, 7 Oct 2014 01:46:54 +0000 (18:46 -0700)]
Finish deparsing ‘my sub if; CORE::if...’

Commit 3188a8216 took care of the majority of cases making mostly gen-
eral changes.

This commit finishes up all the weird keywords that need spe-
cial handling.

7 years agopodcheck.
Jarkko Hietaniemi [Mon, 6 Oct 2014 21:04:12 +0000 (23:04 +0200)]

7 years agoThe double-double mantissa precision ... it's complicated.
Jarkko Hietaniemi [Mon, 6 Oct 2014 19:36:04 +0000 (21:36 +0200)]
The double-double mantissa precision ... it's complicated.

7 years agoAIX/longdouble: switch the default to allow it.
Jarkko Hietaniemi [Mon, 6 Oct 2014 19:27:28 +0000 (21:27 +0200)]
AIX/longdouble: switch the default to allow it.

Since the only really unfixable part is the inf/nan support.

Document the troublesomeness in README.aix.

7 years agoDelete obsolete comment fragment.
Jarkko Hietaniemi [Mon, 6 Oct 2014 18:36:29 +0000 (20:36 +0200)]
Delete obsolete comment fragment.

7 years agoUse the double-double size only if using long double.
Jarkko Hietaniemi [Mon, 6 Oct 2014 18:33:32 +0000 (20:33 +0200)]
Use the double-double size only if using long double.

... and only for the buffer size, not for the extraction.

7 years agoThe leading underscore is optional in Darwin.
Jarkko Hietaniemi [Mon, 6 Oct 2014 18:02:14 +0000 (20:02 +0200)]
The leading underscore is optional in Darwin.

7 years agoBail out if there seem to be no text symbols.
Jarkko Hietaniemi [Mon, 6 Oct 2014 17:55:38 +0000 (19:55 +0200)]
Bail out if there seem to be no text symbols.

Found by Ævar in an IBM pSeries POWER7 Fedora Linux box.
All the text symbols (code) seemed to be 'D' (data).

There might be something further to fix regarding the use of 'nm'
(or maybe 'ar'?) in this particular box, but this change makes
the test more robust against surprising nm results.

7 years agoDeparse sub calls quietly
Father Chrysostomos [Mon, 6 Oct 2014 15:28:40 +0000 (08:28 -0700)]
Deparse sub calls quietly

In commit a958cfbb8 I used eval{prototype "CORE::..."} to see whether
something is a keyword, not realising that we have a __DIE__ hand-
ler that squeaks every time.  It is only installed when Deparse is
invoked via -MO.

Localising $SIG{__DIE__} does the trick.  Localising $@ as well is a
good idea when using eval, though I haven’t checked whether that was
causing problems.

7 years ago[perl #122911] regexp.h: Rmv VOL from op_comp sig
Father Chrysostomos [Mon, 6 Oct 2014 13:06:51 +0000 (06:06 -0700)]
[perl #122911] regexp.h: Rmv VOL from op_comp sig

It is no longer needed as of 1067df30ae9.

7 years agosilence some compiler warnings on VC6
Daniel Dragan [Mon, 6 Oct 2014 08:04:05 +0000 (04:04 -0400)]
silence some compiler warnings on VC6

sv.c and toke.c have the following warnings on VC6 but not VC 2003
(and probably newer too), example
..\toke.c(3149) : warning C4761: integral size mismatch in argument;
conversion supplied

find_default_stash (commit 90aeefb473 )& gv_magicalize (commit 71c35c050e )
..\gv.c(1680) : warning C4028: formal parameter 6 different from declaration
..\gv.c(1783) : warning C4028: formal parameter 6 different from declaration

not all VC6 compiler warnings are fixed by this patch

7 years agoDeparse with CORE:: to avoid lex sub conflicts
Father Chrysostomos [Mon, 6 Oct 2014 05:32:23 +0000 (22:32 -0700)]
Deparse with CORE:: to avoid lex sub conflicts

If a lexical sub with the same name as a keyword is in scope, we need
to deparse the keyword with a CORE:: prefix.

This commit handles most of the cases, but there are a few exceptional
cases remaining.

7 years agoDeparse-core.t: Fix ineffective tests
Father Chrysostomos [Mon, 6 Oct 2014 00:30:59 +0000 (17:30 -0700)]
Deparse-core.t: Fix ineffective tests

In a958cfbb8, I accidentally changed this to test ‘test::foo()’,
rather than ‘foo()’ deparsing as ‘test::foo()’, which was what I
had intended.

7 years agoCorrect ‘"my" variable "&f::b"...’ message
Father Chrysostomos [Mon, 6 Oct 2014 00:25:57 +0000 (17:25 -0700)]
Correct ‘"my" variable "&f::b"...’ message

"my" variable &foo::bar can't be in a package at - line 2, near "my sub foo::bar"

It should say ‘subroutine’, not ‘variable’.  When I implemented lexi-
cal subs, I thought I caught all these, must I missed this one.

7 years agotoke.c: Add comment for greppability
Father Chrysostomos [Mon, 6 Oct 2014 00:15:43 +0000 (17:15 -0700)]
toke.c: Add comment for greppability

7 years agoReorder t/lib/croak/toke
Father Chrysostomos [Mon, 6 Oct 2014 00:10:59 +0000 (17:10 -0700)]
Reorder t/lib/croak/toke

to put string terminator errors all in one place.

7 years agoMake B::Deparse qualify sub calls named after keywords
Father Chrysostomos [Sun, 5 Oct 2014 20:32:20 +0000 (13:32 -0700)]
Make B::Deparse qualify sub calls named after keywords

While B::Deparse was correctly applying CORE:: as necessary to dis-
ambiguate between keywords and custom subroutines, it was not doing
likewise for subroutines whose names were keywords.  main::foo()
should be deparsed as main::foo() if ‘foo’ is a keyword.

7 years ago[perl #122771] Fix assertion failure with -d and sort
Father Chrysostomos [Sun, 5 Oct 2014 20:30:36 +0000 (13:30 -0700)]
[perl #122771] Fix assertion failure with -d and sort

-d was conflicting with sort optimisations added by 932bca295d, which
had assertions that checked for nextstate, but not dbstate ops.

7 years agoRemove __SUB__ from Deparse-core.t exception list
Father Chrysostomos [Sun, 5 Oct 2014 20:11:01 +0000 (13:11 -0700)]
Remove __SUB__ from Deparse-core.t exception list

This list is for keywords exempt from the checks that make sure all
keywords have been tested.  __SUB__ *is* tested, so it does not
belong here.

7 years agoSimplify OP_LEAVESUBLV logic in op.c:op_lvalue
Father Chrysostomos [Sun, 5 Oct 2014 18:01:57 +0000 (11:01 -0700)]
Simplify OP_LEAVESUBLV logic in op.c:op_lvalue

If the lvalue type was OP_LEAVESUBLV, then the code for handling
entersub ops would go through extra checking to see whether we
have an lvalue sub available at compile time, before falling
through to the croaking code.  But the croaking code does not croak
if the type is OP_LEAVESUBLV, so the extra checks were for nothing.
We can skip those checks here just as we do for OP_GREPSTART,
OP_ENTERSUB and OP_REFGEN lvalue types.

7 years agoop.c:op_lvalue: Remove redundent case OP_RETURN
Father Chrysostomos [Sun, 5 Oct 2014 17:57:31 +0000 (10:57 -0700)]
op.c:op_lvalue: Remove redundent case OP_RETURN

The default case does nothing if the type is OP_LEAVESUBLV.  This has
been so since 145b2bbb3.

7 years agoDeparse inverted for(;;) cond more correctly
Father Chrysostomos [Sun, 5 Oct 2014 13:58:50 +0000 (06:58 -0700)]
Deparse inverted for(;;) cond more correctly

22584011 did not take the looks-like-a-function rule into account.

not ($1 || 2) ** 2 means (not ($1 || 2)) ** 2.

7 years agoDeparse.t: Another to-do test for lex subs
Father Chrysostomos [Sun, 5 Oct 2014 13:34:09 +0000 (06:34 -0700)]
Deparse.t: Another to-do test for lex subs

7 years agoConsistent spaces after dots in perlfunc
Father Chrysostomos [Sat, 4 Oct 2014 12:56:11 +0000 (05:56 -0700)]
Consistent spaces after dots in perlfunc

7 years agoclarify use VERSION docs
Doug Bell [Fri, 3 Oct 2014 03:52:24 +0000 (22:52 -0500)]
clarify use VERSION docs

Anything that C<use VERSION> adds, another C<use VERSION> may take away.
Explicitly doing the C<use strict> and/or C<use feature> means that
C<use VERSION> will not change them. C<use VERSION> will only change
the defaults, or things done by C<use VERSION>.

7 years agosilence compiler warnings in utf8_mg_pos_cache_update
Daniel Dragan [Sat, 4 Oct 2014 05:39:36 +0000 (01:39 -0400)]
silence compiler warnings in utf8_mg_pos_cache_update

commit 73ecc8cb69 added warnings on VC2003, silence them
..\sv.c(7556) : warning C4244: '=' : conversion from 'STRLEN' to 'float', possible loss of data
..\sv.c(7557) : warning C4244: '=' : conversion from 'const STRLEN' to 'float', possible loss of data
..\sv.c(7560) : warning C4244: '=' : conversion from 'const STRLEN' to 'float', possible loss of data
..\sv.c(7561) : warning C4244: '=' : conversion from 'STRLEN' to 'float', possible loss of data

7 years agooptimize SV creation funcs in sv.c
Daniel Dragan [Sat, 4 Oct 2014 06:14:02 +0000 (02:14 -0400)]
optimize SV creation funcs in sv.c

In Perl_newSV, the sv_upgrade is redundant, except to protect against a
segv in blindly SV body derefing SvGROW (but not in sv_grow). sv_grow has
always upgraded a non-PV SV to PV. So don't it here. Since a new SV will
never have be a COW, have a SvLEN or a body, all of which SvGROW uses,
just call sv_grow. Less branching, and smaller code that way.

In Perl_newSV_type, give a hint to compiler that if a platform's
symbol visibility allows inlining, and newSV_type's arg is the base type
(currently SVt_NULL, maybe SVt_IV in future (see ML)), to possibly inline
new_SV into the caller and remove the sv_upgrade call. Also don't call
sv_upgrade if it isn't needed (SVt_NULL) in the public symbol version.

The redundant sv_upgrade then sv_grow goes to commit 79072805bf
"perl 5.0 alpha 2". VC 2003 -01 32 bit threaded machine code size in bytes
of 2 functions
Perl_newSV_type before 0x2f after 0x29
Perl_newSV  before 0x48 after 0x28

7 years agoregcomp.c: Compiler warning
Father Chrysostomos [Sat, 4 Oct 2014 12:32:50 +0000 (05:32 -0700)]
regcomp.c: Compiler warning

Shut up this warning:

regcomp.c:7346:13: warning: format specifies type 'unsigned long' but the
      argument has type 'U32' (aka 'unsigned int') [-Wformat]

by casting to auld lang syne—I mean unsigned long.

7 years agoFix assertion failure/hang with / (?{(^{})/
Father Chrysostomos [Sat, 4 Oct 2014 05:40:36 +0000 (22:40 -0700)]
Fix assertion failure/hang with / (?{(^{})/

When this invalid construct is parsed, the resulting op tree for the
pattern has a code block with no constant item following it, breaking
the assumptions made by pmruntime.

Fixing this was not so easy.

You can’t just adjust the assertions, because the hang that non-debug-
ging builds exhibited is still there.

You can’t just return NULL from pmruntime when encounting the bad op
tree, because the parser will crash on the null pointer.

You can’t just return the empty pmop, because the wrong pad is
active, and other functions in op.c will try to access nonexistent
pad entries.

You can’t just LEAVE_SCOPE and return the pmop, because then PL_parser
will be null in yyerror.  Changing yyerror to account is not suffi-
cient, because then you get double-freed SVs.  At that point I gave up
with that approach.

The easiest solution turned out to be to fake up the op that we were
expecting to see.

7 years agoXSLoader.t fix-up following 8e6aa27cd01.
Craig A. Berry [Sat, 4 Oct 2014 03:25:24 +0000 (22:25 -0500)]
XSLoader.t fix-up following 8e6aa27cd01.

The skip count was incorrect as there is only one test, not two.

Also, XSLoader uses forward slashes explicitly, so prepending a
path to what it concocts from the package name must be done in
Unix format regardless of platform.

7 years agoAdd linked mods to known_pod_issues
Father Chrysostomos [Fri, 3 Oct 2014 21:40:57 +0000 (14:40 -0700)]
Add linked mods to known_pod_issues

7 years agoperl5220delta: Mention mods from #122814
Father Chrysostomos [Fri, 3 Oct 2014 21:40:00 +0000 (14:40 -0700)]
perl5220delta: Mention mods from #122814

7 years agoDeparse inverted for(;;) condition correctly
Father Chrysostomos [Fri, 3 Oct 2014 21:19:59 +0000 (14:19 -0700)]
Deparse inverted for(;;) condition correctly

This is wrong:

$ perl -MO=Deparse -e 'for($a;!$b;$c){}'
for ($a; $b; $c) {

-e syntax OK

What happened to the bang?

This was broken in 5.12 by edbe35ea95.

7 years agoMake OP_METHOD* to be of new class METHOP
syber [Thu, 4 Sep 2014 18:08:59 +0000 (22:08 +0400)]
Make OP_METHOD* to be of new class METHOP

Introduce a new opcode class, METHOP, which will hold class/method related
info needed at runtime to improve performance of class/object method
calls, then change OP_METHOD and OP_METHOD_NAMED from being UNOP/SVOP to
being METHOP.

Note that because OP_METHOD is a UNOP with an op_first, while
OP_METHOD_NAMED is an SVOP, the first field of the METHOP structure
is a union holding either op_first or op_sv. This was seen as less messy
than having to introduce two new op classes.

The new op class's character is '.'

Nothing has changed in functionality and/or performance by this commit.
It just introduces new structure which will be extended with extra
fields and used in later commits.

Added METHOP constructors:
- newMETHOP() for method ops with dynamic method names.
  The only optype for this op is OP_METHOD.
- newMETHOP_named() for method ops with constant method names.
  Optypes for this op are: OP_METHOD_NAMED (currently) and (later)

(This commit includes fixups by davem)

7 years agoDo not rely on the precise error wording
Rafael Garcia-Suarez [Fri, 3 Oct 2014 12:03:13 +0000 (14:03 +0200)]
Do not rely on the precise error wording

'No such file or directory' is fine on Linux but other UNIXes might
say it differently, for example 'A file or directory in the path name does not exist'.

7 years agoperldelta for 8e6aa27cd01d, 30837b2a7d75, de937bde1656
Tony Cook [Fri, 3 Oct 2014 05:40:18 +0000 (15:40 +1000)]
perldelta for 8e6aa27cd01d30837b2a7d75de937bde1656

7 years ago[perl #122455] fix XSLoader loading other namespaces
Tony Cook [Fri, 3 Oct 2014 05:30:35 +0000 (15:30 +1000)]
[perl #122455] fix XSLoader loading other namespaces

7 years agobump $XSLoader::VERSION
Tony Cook [Fri, 3 Oct 2014 05:20:45 +0000 (15:20 +1000)]
bump $XSLoader::VERSION

7 years agoAllow XSLoader to load modules from a different namespace
Graham Knop [Fri, 1 Aug 2014 12:30:42 +0000 (08:30 -0400)]
Allow XSLoader to load modules from a different namespace

When trying to locate the binary component of a module, use the caller
package to find the library root directory, not the passed in module
name.  Since the file path it is using is always taken from the caller,
using the passed in package prevents it from finding the library root.
If in the package File::Spec::Unix, and given XSLoader::load("Cwd"), the
library root is three levels up from the filename of the
File::Spec::Unix module, not one.

7 years ago[perl #122455] TODO test for XSLoader mishandling of namespaces
Tony Cook [Thu, 7 Aug 2014 01:06:45 +0000 (11:06 +1000)]
[perl #122455] TODO test for XSLoader mishandling of namespaces

7 years ago[perl #122657] TODO checking the result of recv() on hurd
Tony Cook [Wed, 1 Oct 2014 01:33:19 +0000 (11:33 +1000)]
[perl #122657] TODO checking the result of recv() on hurd

7 years agoCompare recv return value to peername in socket test
Leon Timmermans [Wed, 24 Sep 2014 21:17:21 +0000 (23:17 +0200)]
Compare recv return value to peername in socket test

7 years agoDeparse ‘local our’
Father Chrysostomos [Thu, 2 Oct 2014 21:13:20 +0000 (14:13 -0700)]
Deparse ‘local our’

Deparse was omitting the ‘our’.

7 years agoKeep concise-xs.t happy
Father Chrysostomos [Thu, 2 Oct 2014 21:13:15 +0000 (14:13 -0700)]
Keep concise-xs.t happy

7 years agoDeparse \(..., (@a), ...) correctly
Father Chrysostomos [Thu, 2 Oct 2014 20:38:12 +0000 (13:38 -0700)]
Deparse \(..., (@a), ...) correctly

It is the presence of parentheses immediately around the array (and
possibly local/our/my/+) in refgen context, rather than parentheses
surrounding the argument to \, that causes the array to be flattened.

B::Deparse was deparsing \(@a) correctly, but not \(@a, (@b)), in
which takes a reference to @a and to each of @b’s elements.  It was
omitting the parentheses around @b.

7 years agoUpdate comments for OPf_SPECIAL/do
Father Chrysostomos [Thu, 2 Oct 2014 19:54:15 +0000 (12:54 -0700)]
Update comments for OPf_SPECIAL/do

‘do subname’ has been removed, so OPf_SPECIAL no longer applies to

7 years agoMake list assignment respect foreach aliasing
Father Chrysostomos [Thu, 2 Oct 2014 19:44:19 +0000 (12:44 -0700)]
Make list assignment respect foreach aliasing

See ff2a62e0c8 for the explanation.  The bug fix in that commit did
not apply to foreach’s aliasing.

In short, ($a,$b)=($c,$d) needs to account for whether two of those
variable names could be referring to the same variable.

This commit causes the test suite to exercise a code path in scope.c
added by ff2a62e0c8, which turned out to be buggy.  (I forgot to test
it at the time.)

7 years agoThe Module-CoreList on CPAN is now 5.20141002
Chris 'BinGOs' Williams [Thu, 2 Oct 2014 11:10:59 +0000 (12:10 +0100)]
The Module-CoreList on CPAN is now 5.20141002

7 years agoThere's no need to rewrite the Module-CoreList pod now
Chris 'BinGOs' Williams [Thu, 2 Oct 2014 08:11:14 +0000 (09:11 +0100)]
There's no need to rewrite the Module-CoreList pod now

7 years agoMake the CAVEAT entry in Module-CoreList pod sane
Chris 'BinGOs' Williams [Thu, 2 Oct 2014 08:08:48 +0000 (09:08 +0100)]
Make the CAVEAT entry in Module-CoreList pod sane

7 years agoUpdate Module-CoreList Changes file for 5.20141002 release
Chris 'BinGOs' Williams [Thu, 2 Oct 2014 08:01:06 +0000 (09:01 +0100)]
Update Module-CoreList Changes file for 5.20141002 release

7 years agocorelist: import v5.18.3 and v5.18.4 data
Ricardo Signes [Thu, 2 Oct 2014 01:28:44 +0000 (21:28 -0400)]
corelist: import v5.18.3 and v5.18.4 data

7 years agoperlhist: bring in 5.18.3 and 5.18.4 release dates
Ricardo Signes [Thu, 2 Oct 2014 01:26:20 +0000 (21:26 -0400)]
perlhist: bring in 5.18.3 and 5.18.4 release dates

7 years agoimport latest epigraphs from maint-5.18
Ricardo Signes [Thu, 2 Oct 2014 01:19:16 +0000 (21:19 -0400)]
import latest epigraphs from maint-5.18

7 years Include all Deparse-*.t files in _PERLLIB
Father Chrysostomos [Wed, 1 Oct 2014 23:21:47 +0000 (16:21 -0700)] Include all Deparse-*.t files in _PERLLIB

7 years agoSort MANIFEST properly
Father Chrysostomos [Wed, 1 Oct 2014 23:19:42 +0000 (16:19 -0700)]
Sort MANIFEST properly

7 years agoCorrect and update sv.c’s string copy comments
Father Chrysostomos [Wed, 1 Oct 2014 23:17:52 +0000 (16:17 -0700)]
Correct and update sv.c’s string copy comments

Thanks to Dave Mitchell for pointing out my mistakes.

Whether the rhs is copy-on-write already does not change whether we
do the long-string-and-left-buffer-size check.  The comments (added in
2ac0bcb35) were wrong.

Also, update the comments for e8c6a474e, which added the
big-buffer-on-the-right skip logic.

7 years ago[perl #122870] Fix B::Deparse–DDS compatibility
Father Chrysostomos [Wed, 1 Oct 2014 23:07:46 +0000 (16:07 -0700)]
[perl #122870] Fix B::Deparse–DDS compatibility

7 years agoAdd tests for overriding <> versus rcatline
Rafael Garcia-Suarez [Wed, 1 Oct 2014 07:13:05 +0000 (09:13 +0200)]
Add tests for overriding <> versus rcatline

7 years agoNew <<>> tests
Rafael Garcia-Suarez [Wed, 1 Oct 2014 07:03:10 +0000 (09:03 +0200)]
New <<>> tests

- Modify test to test also that <<>> with empty (false) lines
- Add a test for <<>> used in a rcatline op

7 years agoUpstream a patch from pkgsrc for NetBSD hints
Chris 'BinGOs' Williams [Tue, 30 Sep 2014 18:15:05 +0000 (19:15 +0100)]
Upstream a patch from pkgsrc for NetBSD hints

7 years agoForgot to update SKIP count after last patch
Rafael Garcia-Suarez [Tue, 30 Sep 2014 13:44:44 +0000 (15:44 +0200)]
Forgot to update SKIP count after last patch

7 years agoAdd a test for <<>> failing on the second file
Rafael Garcia-Suarez [Tue, 30 Sep 2014 13:36:10 +0000 (15:36 +0200)]
Add a test for <<>> failing on the second file

7 years agoAdd tests for empty strings in @ARGV
Rafael Garcia-Suarez [Mon, 29 Sep 2014 23:19:55 +0000 (01:19 +0200)]
Add tests for empty strings in @ARGV

which should be refused, since no file name should be empty.
(Suggested by Richard Soderberg)

7 years agoClarify the documentation for <<>>
Rafael Garcia-Suarez [Mon, 29 Sep 2014 22:25:27 +0000 (00:25 +0200)]
Clarify the documentation for <<>>

7 years agoAdd tests for $ARGV
Rafael Garcia-Suarez [Mon, 29 Sep 2014 22:24:21 +0000 (00:24 +0200)]
Add tests for $ARGV

There weren't apparently any. This also tests that $ARGV behaves
correctly both with <> and <<>>.

7 years agoAdd tests for the <<>> operator
Rafael Garcia-Suarez [Mon, 29 Sep 2014 20:52:32 +0000 (22:52 +0200)]
Add tests for the <<>> operator

7 years agoAdded some documentation for while(<<>>)
Peter Martini [Mon, 11 Aug 2014 03:11:20 +0000 (23:11 -0400)]
Added some documentation for while(<<>>)

7 years agoIntroduce the double-diamond operator <<>>
Rafael Garcia-Suarez [Thu, 24 Jul 2014 15:43:29 +0000 (17:43 +0200)]
Introduce the double-diamond operator <<>>

This operator works like <> or <ARGV>, as it reads the list of file
names to open from the command-line arguments. However, it disables
the magic-open feature (that forks to execute piped commands) :

    $ bleadperl -e 'while(<>){print}' 'echo foo |'
    $ bleadperl -e 'while(<<>>){print}' 'echo foo |'
    Can't open echo foo |: No such file or directory at -e line 1.

7 years agoAdded -x option to makerel to produce .xz tarballs
Chris 'BinGOs' Williams [Mon, 29 Sep 2014 19:09:32 +0000 (20:09 +0100)]
Added -x option to makerel to produce .xz tarballs

With the default of -6 produced much smaller tarball than
.gz (7z produced) and .bz2

  -rw-r--r--  1 bingos bingos 13601234 Sep 29 20:07 perl-5.21.5.tar.bz2
  -rw-r--r--  1 bingos bingos 15699515 Sep 29 20:07 perl-5.21.5.tar.gz
  -rw-r--r--  1 bingos bingos 10982580 Sep 29 20:08 perl-5.21.5.tar.xz

It's an option if we ever need it.

7 years agoTighten uses of regex synthetic start class
Karl Williamson [Mon, 22 Sep 2014 19:59:39 +0000 (13:59 -0600)]
Tighten uses of regex synthetic start class

A synthetic start class (SSC) is generated by the regular expression
pattern compiler to give a consolidation of all the possible things that
can match at the beginning of where a pattern can possibly match.
For example
requires the match to begin with either an 'a' or a 'b'.  There are no
other possibilities.  We can set things up to quickly scan for either of
these in the target string, and only when one of these is found do we
need to look for 'foo'.

There is an overhead associated with using SSCs.  If the number of
possibilities that the SSC excludes is relatively small, it can be
counter-productive to use them.

This patch creates a crude sieve to decide whether to use an SSC or not.
If the SSC doesn't exclude at least half the "likely" possiblities, it
is discarded.  This patch is a starting point, and can be refined if
necessary as we gain experience.

See thread beginning with

In many patterns, no SSC is generated; and with the advent of tries,
SSC's have become less important, so whatever we do is not terribly

7 years agoregcomp.c: Move macro definition earlier in file
Karl Williamson [Tue, 23 Sep 2014 22:54:34 +0000 (16:54 -0600)]
regcomp.c: Move macro definition earlier in file

This is to prepare it to be used in earlier places than it is now.

7 years agoregcomp.c: Use strnEQ instead of series of tests
Karl Williamson [Sat, 20 Sep 2014 16:20:11 +0000 (10:20 -0600)]
regcomp.c: Use strnEQ instead of series of tests

At some point it is more efficient and certainly clearer to call a
library function to do a strcmp than to test each individual byte.
Based on irc discussion with the original coder of this, I changed this
sequence of 6 comparisions to a strnEQ.  At the same time, this adds an
buffer overlflow check.  I was unable to cause the previous code to
overflow, but I believe it was possible.  And this changes the magic
number 6 in the code to a mnemonic giving its meaning.

7 years agoTick that v5.21.4 got a release in the schedule
Chris 'BinGOs' Williams [Mon, 29 Sep 2014 18:45:44 +0000 (19:45 +0100)]
Tick that v5.21.4 got a release in the schedule

7 years agoop_reg_common.h: Get blead to build in Jenkins
Karl Williamson [Mon, 29 Sep 2014 18:16:42 +0000 (12:16 -0600)]
op_reg_common.h: Get blead to build in Jenkins

I don't understand why this compile error check is failing Jenkins, but
am removing it for now to get things to work.

7 years agoEliminate unused BACK regnode
Aaron Crane [Wed, 24 Sep 2014 17:29:36 +0000 (18:29 +0100)]
Eliminate unused BACK regnode

7 years agoregcomp.c: Properly dereference a ptr
Karl Williamson [Sat, 27 Sep 2014 23:13:42 +0000 (17:13 -0600)]
regcomp.c: Properly dereference a ptr

UTF8_IS_INVARIANT takes a byte as its argument, not a ptr.  This bug was
introduced by 62a59291 in 5.21.4.  It doesn't probably cause bugs
because the ptr is always too big to be an invariant, but it slows
things down somewhat by not taking a shortcut it could.

It turns out that there is a discrepency between the APIs of the
UTF8-foo macros.  Some take a byte, and some a string ptr.

7 years agoSuppress some Solaris warnings
Karl Williamson [Mon, 22 Sep 2014 04:07:58 +0000 (22:07 -0600)]
Suppress some Solaris warnings

We get an integer overflow message when we left shift a 1 into the
highest bit of a word.  This changes the 1's into 1U's to indicate
unsigned.  This is done for all the flag bits in the affected word, as
they could get reorderd by someone in the future, unintentionally
reintroducing this problem again.

7 years agoop_reg_common.h: Update comment
Karl Williamson [Wed, 24 Sep 2014 18:51:46 +0000 (12:51 -0600)]
op_reg_common.h: Update comment

The PL file previously referred to has been deleted, and replaced by a
different one.

7 years agoB/Makefile.PL: Allow constants to be long/unsigned
Karl Williamson [Wed, 24 Sep 2014 18:49:13 +0000 (12:49 -0600)]
B/Makefile.PL: Allow constants to be long/unsigned

This looks for numerical constants, but failed to see long and/or
unsigned ones, which have suffixes U and/or L, or lowercase u and/or l.

7 years agoDeprecate multiple "x" in "/xx"
Karl Williamson [Mon, 22 Sep 2014 17:56:48 +0000 (11:56 -0600)]
Deprecate multiple "x" in "/xx"

 It is planned for a future Perl release to have /xx mean something
 different from just /x.  To prepare for this, this commit raises a
 deprecation warning if someone currently has this usage.  A grep of CPAN
 did not turn up any instances of this, but this is to be safe anyway.

 The added code is more general than actually needed, in case we want to
 do this for another flag.

7 years agotoke.c: Clarify comment
Karl Williamson [Mon, 22 Sep 2014 17:54:37 +0000 (11:54 -0600)]
toke.c: Clarify comment

7 years agoop_reg_common.h: White-space only
Karl Williamson [Wed, 17 Sep 2014 23:59:39 +0000 (17:59 -0600)]
op_reg_common.h: White-space only

Align columns vertically

7 years agoMake space for /xx flag
Karl Williamson [Wed, 17 Sep 2014 23:55:16 +0000 (17:55 -0600)]
Make space for /xx flag

This doesn't actually use the flag yet.
We no longer have to make version-dependent changes to
ext/Devel-Peek/t/Peek.t, (it being in /ext) so this doesn't

7 years agoop_reg_common.h: #define in terms of more basic one
Karl Williamson [Wed, 17 Sep 2014 23:57:17 +0000 (17:57 -0600)]
op_reg_common.h: #define in terms of more basic one

The mask to copy bits should always include at least the compile-time
bits.  By defining it in terms of the compile-time bits, we make it
easier to change and understand.

7 years agoUp regex flags limit for (??{})
Karl Williamson [Wed, 17 Sep 2014 18:16:12 +0000 (12:16 -0600)]
Up regex flags limit for (??{})

Previously the regex pattern compilation flags needed for this construct
would fit into an 8-bit byte.  This conveniently fits into the flags
structure element of a regnode.  There are changes coming that require
more than 8 bits, so in preparation, this commit adds an argument to the
node that implements (??{}) (31-bits usable for flags), and moves the
storage to that.

7 years agoregcomp.c: Add assertions
Karl Williamson [Tue, 16 Sep 2014 23:19:52 +0000 (17:19 -0600)]
regcomp.c: Add assertions

This changes from assuming that certain things are constant to using a
variable instead, and then asserting that the variable matches the

7 years agoregcomp.c: Add a function and use it
Karl Williamson [Tue, 16 Sep 2014 23:16:47 +0000 (17:16 -0600)]
regcomp.c: Add a function and use it

This adds a function to allocate a regnode with 2 32-bit arguments, and
uses it, rather than the ad-hoc code that did the same thing previously.
This is in preparation for this code being used in a 2nd place in a
future commit.

7 years agoregcomp.sym: ANYOF nodes have an argument
Karl Williamson [Tue, 16 Sep 2014 22:26:36 +0000 (16:26 -0600)]
regcomp.sym: ANYOF nodes have an argument

Plus a bitmap, but they always have an argument besides, contrary to
what was specified here.  Future commits rely on this, whereas
heretofore this error was harmless.

7 years agoregcomp.h: Add comment
Karl Williamson [Tue, 16 Sep 2014 16:00:32 +0000 (10:00 -0600)]
regcomp.h: Add comment

7 years agoregcomp.c: Outdent line to align with neighbors
Karl Williamson [Mon, 15 Sep 2014 18:14:17 +0000 (12:14 -0600)]
regcomp.c: Outdent line to align with neighbors

7 years agoregcomp.h: Remove obsolete #defines
Karl Williamson [Mon, 15 Sep 2014 17:30:25 +0000 (11:30 -0600)]
regcomp.h: Remove obsolete #defines

These internal definitions are no longer used.

7 years agoregcomp.h: Use existing macro instead of reinventing
Karl Williamson [Mon, 15 Sep 2014 17:29:43 +0000 (11:29 -0600)]
regcomp.h: Use existing macro instead of reinventing

7 years agoregcomp.c: Extract duplicated code to fcn
Karl Williamson [Mon, 15 Sep 2014 14:46:35 +0000 (08:46 -0600)]
regcomp.c: Extract duplicated code to fcn

This causes the nearly-duplicate code of S_reg_node and S_reganode to be
placed into a single function, S_regnode_guts.

There is one place where it might not be obvious that this doesn't
change things.  And that is under DEBUGGING, reg_node() called

    Set_Node_Offset(RExC_emit, RExC_parse + (op == END));

and reganode called


However Set_Cur_Node_Offset is defined to be

    Set_Node_Offset(RExC_emit, RExC_parse)

and since op will never be END for reganode, the two statements are