In perl.git, the branch blead has been updated
<https://perl5.git.perl.org/perl.git/commitdiff/647672aaa908fc8ab61664986252c70fb04f3498?hp=e923f3dcea8f38db48b7b02079de0d1177b08d83>
- Log -----------------------------------------------------------------
commit 647672aaa908fc8ab61664986252c70fb04f3498
Author: David Mitchell <da...@iabyn.com>
Date: Thu Nov 16 09:32:41 2017 +0000
clarify the pod for Perl_utf8_length()
It seemed to imply that the bytes making up the char were s..e; they're
actually s..(e-1).
NPD
commit 3f5e95437092ccddc2436cb7a9ec1cad9e1e8f5d
Author: David Mitchell <da...@iabyn.com>
Date: Thu Nov 16 09:23:53 2017 +0000
expand code comment in perly.y
ASSIGNOP includes mutators like += as well as basic assignment
NPD
-----------------------------------------------------------------------
Summary of changes:
perly.act | 4 ++--
perly.h | 12 +++++-------
perly.tab | 4 ++--
perly.y | 2 +-
utf8.c | 4 ++--
5 files changed, 12 insertions(+), 14 deletions(-)
diff --git a/perly.act b/perly.act
index a201902748..610963f005 100644
--- a/perly.act
+++ b/perly.act
@@ -1,6 +1,6 @@
/* -*- buffer-read-only: t -*-
!!!!!!! DO NOT EDIT THIS FILE !!!!!!!
- This file is built by ./regen_perly.pl from perly.y.
+ This file is built by regen_perly.pl from perly.y.
Any changes made here will be lost!
*/
@@ -1983,6 +1983,6 @@ case 2:
/* Generated from:
- * 4667736d3c31a5169bab73c89d70a27dbce5ea4fe7e3c332a236f8a210aafdc2 perly.y
+ * 78f9e1daf948a161b43e7457943b7d91cada7c92c8b941a1c1dbbc23c2c10aa8 perly.y
* b6fae5748f9bef6db4740aa5e122b84ac5181852d42474d0ecad621fa4253306
regen_perly.pl
* ex: set ro: */
diff --git a/perly.h b/perly.h
index eb14b421c7..765d07cab6 100644
--- a/perly.h
+++ b/perly.h
@@ -1,17 +1,17 @@
/* -*- buffer-read-only: t -*-
!!!!!!! DO NOT EDIT THIS FILE !!!!!!!
- This file is built by ./regen_perly.pl from perly.y.
+ This file is built by regen_perly.pl from perly.y.
Any changes made here will be lost!
*/
#define PERL_BISON_VERSION 30000
#ifdef PERL_CORE
-/* A Bison parser, made by GNU Bison 3.0.4. */
+/* A Bison parser, made by GNU Bison 3.0.2. */
/* Bison interface for Yacc-like parsers in C
- Copyright (C) 1984, 1989-1990, 2000-2015 Free Software Foundation, Inc.
+ Copyright (C) 1984, 1989-1990, 2000-2013 Free Software Foundation, Inc.
This program is free software: you can redistribute it and/or modify
it under the terms of the GNU General Public License as published by
@@ -160,7 +160,7 @@ S_is_opval_token(int type) {
#endif /* PERL_IN_TOKE_C */
#endif /* PERL_CORE */
#if ! defined YYSTYPE && ! defined YYSTYPE_IS_DECLARED
-
+typedef union YYSTYPE YYSTYPE;
union YYSTYPE
{
@@ -171,8 +171,6 @@ union YYSTYPE
GV *gvval;
};
-
-typedef union YYSTYPE YYSTYPE;
# define YYSTYPE_IS_TRIVIAL 1
# define YYSTYPE_IS_DECLARED 1
#endif
@@ -183,6 +181,6 @@ int yyparse (void);
/* Generated from:
- * 4667736d3c31a5169bab73c89d70a27dbce5ea4fe7e3c332a236f8a210aafdc2 perly.y
+ * 78f9e1daf948a161b43e7457943b7d91cada7c92c8b941a1c1dbbc23c2c10aa8 perly.y
* b6fae5748f9bef6db4740aa5e122b84ac5181852d42474d0ecad621fa4253306
regen_perly.pl
* ex: set ro: */
diff --git a/perly.tab b/perly.tab
index 9ca5ae8916..f4be1fce67 100644
--- a/perly.tab
+++ b/perly.tab
@@ -1,6 +1,6 @@
/* -*- buffer-read-only: t -*-
!!!!!!! DO NOT EDIT THIS FILE !!!!!!!
- This file is built by ./regen_perly.pl from perly.y.
+ This file is built by regen_perly.pl from perly.y.
Any changes made here will be lost!
*/
@@ -1111,6 +1111,6 @@ static const toketypes yy_type_tab[] =
};
/* Generated from:
- * 4667736d3c31a5169bab73c89d70a27dbce5ea4fe7e3c332a236f8a210aafdc2 perly.y
+ * 78f9e1daf948a161b43e7457943b7d91cada7c92c8b941a1c1dbbc23c2c10aa8 perly.y
* b6fae5748f9bef6db4740aa5e122b84ac5181852d42474d0ecad621fa4253306
regen_perly.pl
* ex: set ro: */
diff --git a/perly.y b/perly.y
index 0a7c30c042..8f3e303af1 100644
--- a/perly.y
+++ b/perly.y
@@ -962,7 +962,7 @@ subscripted: gelem '{' expr ';' '}' /*
*main::{something} */
;
/* Binary operators between terms */
-termbinop: term ASSIGNOP term /* $x = $y */
+termbinop: term ASSIGNOP term /* $x = $y, $x += $y */
{ $$ = newASSIGNOP(OPf_STACKED, $1, $2, $3); }
| term POWOP term /* $x ** $y */
{ $$ = newBINOP($2, 0, scalar($1), scalar($3)); }
diff --git a/utf8.c b/utf8.c
index b731780fe4..31b7db7c42 100644
--- a/utf8.c
+++ b/utf8.c
@@ -2005,8 +2005,8 @@ Perl_utf8_to_uvuni_buf(pTHX_ const U8 *s, const U8 *send,
STRLEN *retlen)
=for apidoc utf8_length
Return the length of the UTF-8 char encoded string C<s> in characters.
-Stops at C<e> (inclusive). If C<e E<lt> s> or if the scan would end
-up past C<e>, croaks.
+Stops at C<e> (i.e. the C<*e> byte does not form part of the character).
+If C<e E<lt> s> or if the scan would end up past C<e>, it croaks.
=cut
*/
--
Perl5 Master Repository
