In perl.git, the branch blead has been updated <http://perl5.git.perl.org/perl.git/commitdiff/d1bd48a0bf64e4969a36b6ebe7f93c0ceea5529b?hp=6151d433633f874a63f2a659b8bdaf400afacf4d>
- Log ----------------------------------------------------------------- commit d1bd48a0bf64e4969a36b6ebe7f93c0ceea5529b Author: Father Chrysostomos <[email protected]> Date: Sat Jul 16 01:08:20 2016 -0700 Get regen to work before 5.10 Since it uses the system perl, itâs useful to keep it working with earlier versions. ----------------------------------------------------------------------- Summary of changes: regen/regcomp.pl | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) diff --git a/regen/regcomp.pl b/regen/regcomp.pl index 9890a1a..850eeb9 100644 --- a/regen/regcomp.pl +++ b/regen/regcomp.pl @@ -126,7 +126,8 @@ sub parse_opcode_def { # the content of the "desc" field from the first step is extracted here: @{$node}{qw(type code args flags longj)}= split /[,\s]\s*/, $node->{desc}; - $node->{$_} //= "" for qw(type code args flags longj); + defined $node->{$_} or $node->{$_} = "" + for qw(type code args flags longj); register_node($node); # has to be before the type_alias code below @@ -612,7 +613,7 @@ format GuTS = ^*~~ \$node->{pod_comment} ^$name_fmt ^<<<<<<<<< ^$descr_fmt~~ - \$node->{name}, \$code, \$node->{comment}//'' + \$node->{name}, \$code, defined \$node->{comment} ? \$node->{comment} : '' . 1; EOD -- Perl5 Master Repository
