In perl.git, the branch smoke-me/jkeenan/tonyc/133610-sysio-bytes has been updated
<https://perl5.git.perl.org/perl.git/commitdiff/2036d9ac76941fe4f6db03db20b9e632ab893ddc?hp=b6d3dbed6233cf7fba891af39e1d036ffaf593b1> discards b6d3dbed6233cf7fba891af39e1d036ffaf593b1 (commit) discards 5be38088d2ea58698dfa7d9bc3d6ce3c36a96682 (commit) - Log ----------------------------------------------------------------- commit 2036d9ac76941fe4f6db03db20b9e632ab893ddc Author: Tony Cook <t...@develop-help.com> Date: Tue Oct 23 10:44:28 2018 +1100 perldelta for use sysio_bytes commit 58c488b19b37ea1809b60ab2a154ffa8e3dff10f Author: Tony Cook <t...@develop-help.com> Date: Wed Oct 17 09:18:42 2018 +1100 add feature sysio_bytes Calling sysread(), syswrite(), recv(), send() on a :utf8 handle currently throws an exception, due to the strangeness of their old behaviour. This feature allows those operators to be called on :utf8 handles, but makes them ignore that :utf8 flags, always reading or writing bytes. ----------------------------------------------------------------------- Summary of changes: AUTHORS | 1 + pod/perlre.pod | 2 +- t/run/locale.t | 4 +++- 3 files changed, 5 insertions(+), 2 deletions(-) diff --git a/AUTHORS b/AUTHORS index a17a52619f..9c09813dca 100644 --- a/AUTHORS +++ b/AUTHORS @@ -999,6 +999,7 @@ Petr Písař <ppi...@redhat.com> Petter Reinholdtsen <p...@hungry.com> Phil Lobbes <p...@perkpartners.com> Phil Monsen <philip.mon...@pobox.com> +Phil Pearl (Lobbes) <plob...@gmail.com> Philip Boulain <philip.boul...@smoothwall.net> Philip Guenther <guent...@openbsd.org> Philip Hazel <p...@cus.cam.ac.uk> diff --git a/pod/perlre.pod b/pod/perlre.pod index 74d19cde2f..e97d6c87df 100644 --- a/pod/perlre.pod +++ b/pod/perlre.pod @@ -931,7 +931,7 @@ instance the above example could also be written as follows: /"(?>(?:(?>[^"\\]+)|\\.)*)"/ -Note that the possessive quantifier modifier can not be be combined +Note that the possessive quantifier modifier can not be combined with the non-greedy modifier. This is because it would make no sense. Consider the follow equivalency table: diff --git a/t/run/locale.t b/t/run/locale.t index ae5abca009..b51c2d2a13 100644 --- a/t/run/locale.t +++ b/t/run/locale.t @@ -23,6 +23,7 @@ use Config; my $have_strtod = $Config{d_strtod} eq 'define'; my @locales = find_locales( [ 'LC_ALL', 'LC_CTYPE', 'LC_NUMERIC' ]); skip_all("no locales available") unless @locales; +note("locales available: @locales"); my $debug = 0; my $switches = ""; @@ -73,6 +74,7 @@ foreach my $locale (@locales) { } if ($non_C_locale) { + note("using non-C locale '$non_C_locale'"); setlocale(LC_NUMERIC, $non_C_locale); isnt(setlocale(LC_NUMERIC), "C", "retrieving current non-C LC_NUMERIC doesn't give 'C'"); setlocale(LC_ALL, $non_C_locale); @@ -80,7 +82,7 @@ if ($non_C_locale) { my @test_numeric_locales = @locales; - # Skip this locale on these cywgwin versions as the returned radix character + # Skip this locale on these cygwin versions as the returned radix character # length is wrong if ( $^O eq 'cygwin' && version->new(($Config{'osvers'} =~ /^(\d+(?:\.\d+)+)/)[0]) le v2.4.1) -- Perl5 Master Repository
