[perl.git] branch blead, updated. v5.21.9-154-gff982d0

[Karl Williamson]

In perl.git, the branch blead has been updated



- Log -
commit ff982d0036bfe69b869b03451f0561fa790d4378
Author: Karl Williamson 
Date:   Wed Dec 31 16:49:35 2014 -0700

utfebcdic.h: Add comment
---

Summary of changes:
 utfebcdic.h | 14 ++
 1 file changed, 14 insertions(+)

diff --git a/utfebcdic.h b/utfebcdic.h
index 23b4ae2..a4f5fb5 100644
--- a/utfebcdic.h
+++ b/utfebcdic.h
@@ -86,6 +86,20 @@
  *
  * tr16 also says that NEL and LF be swapped.  We don't do that.
  *
+ * Because of the way UTF-EBCDIC is constructed, the lowest 32 code points that
+ * aren't equivalent to ASCII characters nor C1 controls form the set of
+ * continuation bytes; the remaining 64 non-ASCII, non-control code points form
+ * the potential start bytes, in order.  (However, the first 5 of these lead to
+ * malformed overlongs, so there really are only 59 start bytes.) Hence the
+ * UTF-EBCDIC for the smallest variant code point, 0x160, will have likely 0x41
+ * as its continuation byte, provided 0x41 isn't an ASCII or C1 equivalent.
+ * And its start byte will be the code point that is 37 (32+5) non-ASCII,
+ * non-control code points past it.  (0 - 3F are controls, and 40 is SPACE,
+ * leaving 41 as the first potentially available one.)  In contrast, on ASCII
+ * platforms, the first 64 (not 32) non-ASCII code points are the continuation
+ * bytes.  And the first 2 (not 5) potential start bytes form overlong
+ * malformed sequences.
+ *
  * EBCDIC characters above 0xFF are the same as Unicode in Perl's
  * implementation of all 3 encodings, so for those Step 1 is trivial.
  *

--
Perl5 Master Repository

[perl.git] branch blead, updated. v5.21.9-153-gb2a691a

[Karl Williamson]

In perl.git, the branch blead has been updated



- Log -
commit b2a691af8242035dab97bd4c05b77ec3ad88955b
Merge: 69929f1 ec7e59f
Author: Karl Williamson 
Date:   Thu Mar 5 21:49:17 2015 -0700

Add fixes for testing EBCDIC to blead

This branch contains fixes to test files to pass on both ASCII and
EBCDIC platforms.  Some of these are a couple years old, and have been
lingering in the EBCDIC branch until now.

These changes are all to core code that is not dual-lifed, and that
doesn't have any other complications.  Future commits will deal with
the ones left out of this commit.

Some commits generalize the test to work on any platform, including a
non-EBCDIC one, should there ever be one, unlikely as that may be.  The
subjects of these commits say something like "generalize to non-ASCII
platforms."

Some commits rely on EBCDIC and ASCII properties, and would have to be
revised if Perl were ever to work on a platform with some other
character set.  These typically mention EBCDIC in their subject lines.

Some commits merely skip some tests on EBCDIC platforms.  These were
because of several possible reasons.  One is that the test is specific
to a particular EBCDIC code page, and I did not wish to expend my time
in handling all those.  Another similar one is that there would be a
significant amount of work in converting the test, too much for me to
undertake, and I don't think the value added was worth it.  And some are
just because of the inherent qualities of EBCDIC don't fit.  For example
UTF-EBCDIC doesn't have the capacity to handle very large code points
that can be handled on 64-bit ASCII platforms.  Or the tests are just
for porting when we generate a Perl to ship; which we never will do on
an EBCDIC platform.

commit ec7e59fb750d2ce33b999be5facb60d03b39a429
Author: Karl Williamson 
Date:   Wed Feb 4 13:30:48 2015 -0700

t/lib/croak/op: Fix to work on EBCDIC platforms

M   t/lib/croak/op

commit 666b3df019f7f993b705b99cc47d5c4f3b754e0f
Author: Karl Williamson 
Date:   Wed Nov 26 19:55:23 2014 -0700

t/op/sprintf.t: Generalize for EBCDIC

This adds a mechanism for tests to be ASCII or EBCDIC specific

M   t/op/sprintf.t

commit dd5aa7ebc1596d7d5f6940325eed090866489d98
Author: Karl Williamson 
Date:   Wed Nov 26 10:54:54 2014 -0700

porting/checkcfgvar.t: Skip on EBCDIC platforms

This is failing on EBCDIC, probably because of sort order differences.
But we won't be packaging a release from one of these platforms; easiest
to just skip.

M   t/porting/checkcfgvar.t

commit b35338b63dfa5471402eab32a90decb92220b74c
Author: Karl Williamson 
Date:   Wed Nov 26 10:47:17 2014 -0700

t/op/bop.t: Generalize for EBCDIC platforms

This also indents some lines that should have been indented or from a
newly formed block.

M   t/op/bop.t

commit 61900f46d20c06eb5ce7ef3901c4907472310e06
Author: Karl Williamson 
Date:   Mon Nov 24 11:19:22 2014 -0700

t/uni/case.pl: Fix to work on non-ASCII platforms

This involves changes to the three test files that call it

M   t/uni/case.pl
M   t/uni/lower.t
M   t/uni/title.t
M   t/uni/upper.t

commit d6fdb726ca09b2535606ec9b195d4983cbcf80e0
Author: Karl Williamson 
Date:   Sat Oct 25 21:42:34 2014 -0600

t/op/tie.t: Skip a couple tests on EBCDIC

These have different results on that platform.

M   t/op/tie.t

commit 67d0123320d7d6168d0280fe413571d48aba0d13
Author: Karl Williamson 
Date:   Sat Oct 25 21:27:54 2014 -0600

t/op/inc.t: Generalize for EBCDIC

M   t/op/inc.t

commit 81452d217627ce0989f666ac599acdc39ae9929d
Author: Karl Williamson 
Date:   Sat Oct 25 21:27:20 2014 -0600

t/op/ver.t: Generalize for EBCDIC

M   t/op/ver.t

commit 20062bee5a77758349c845a963a4dc41cb80
Author: Karl Williamson 
Date:   Sat Oct 25 21:26:20 2014 -0600

t/lib/warnings/regcomp: SKIP some EBCDIC tests

The result varies depending on EBCDIC code page

M   t/lib/warnings/regcomp

commit 9b513004090114f9a637a1c8d04bdc1d2c91ca5d
Author: Karl Williamson 
Date:   Wed Jan 14 12:42:41 2015 -0700

lib/overload.t: Generalize for EBCDIC

M   lib/overload.t

commit aa0bd1ca4055207ac3a3da601a4c05d1adef6971
Author: Karl Williamson 
Date:   Wed Oct 22 10:17:40 2014 -0600

PerlIO-encoding/t/encoding.t: Generalize for non-ASCII platform

M   ext/PerlIO-encoding/t/encoding.t

commit bdf3ec5efeabede3c441b149686008dba865417b
Author: Karl Williamson 
Date:   Tue Oct 21 18:55:27 2014 -0600

t/lib/warnings/op: Skip some tests on EBCDIC

This splits a longer test into two smaller, the first is skipped on
EBCDIC because its result varies

[perl.git] branch blead, updated. v5.21.9-88-g69929f1

[Karl Williamson]

In perl.git, the branch blead has been updated



- Log -
commit 69929f1d944a854768112310eafb7cca2020bd6c
Author: Karl Williamson 
Date:   Wed Jun 26 16:06:47 2013 -0600

lib/Unicode/UCD.t: White-space only

Properly indent within a block
---

Summary of changes:
 lib/Unicode/UCD.t | 54 +++---
 1 file changed, 27 insertions(+), 27 deletions(-)

diff --git a/lib/Unicode/UCD.t b/lib/Unicode/UCD.t
index 969e0f8..8eadfee 100644
--- a/lib/Unicode/UCD.t
+++ b/lib/Unicode/UCD.t
@@ -1167,33 +1167,33 @@ my $prop;
 my ($invlist_ref, $invmap_ref, $format, $missing);
 if ($::IS_ASCII) { # On EBCDIC, other things will come first, and can vary
 # according to code page
-$prop = "uc";
-($invlist_ref, $invmap_ref, $format, $missing) = prop_invmap($prop);
-is($format, 'al', "prop_invmap() format of '$prop' is 'al'");
-is($missing, '0', "prop_invmap() missing of '$prop' is '0'");
-is($invlist_ref->[1], 0x61, "prop_invmap('$prop') list[1] is 0x61");
-is($invmap_ref->[1], 0x41, "prop_invmap('$prop') map[1] is 0x41");
-
-$prop = "upper";
-($invlist_ref, $invmap_ref, $format, $missing) = prop_invmap($prop);
-is($format, 's', "prop_invmap() format of '$prop' is 's");
-is($missing, 'N', "prop_invmap() missing of '$prop' is 'N'");
-is($invlist_ref->[1], 0x41, "prop_invmap('$prop') list[1] is 0x41");
-is($invmap_ref->[1], 'Y', "prop_invmap('$prop') map[1] is 'Y'");
-
-$prop = "lower";
-($invlist_ref, $invmap_ref, $format, $missing) = prop_invmap($prop);
-is($format, 's', "prop_invmap() format of '$prop' is 's'");
-is($missing, 'N', "prop_invmap() missing of '$prop' is 'N'");
-is($invlist_ref->[1], 0x61, "prop_invmap('$prop') list[1] is 0x61");
-is($invmap_ref->[1], 'Y', "prop_invmap('$prop') map[1] is 'Y'");
-
-$prop = "lc";
-($invlist_ref, $invmap_ref, $format, $missing) = prop_invmap($prop);
-is($format, 'al', "prop_invmap() format of '$prop' is 'al'");
-is($missing, '0', "prop_invmap() missing of '$prop' is '0'");
-is($invlist_ref->[1], 0x41, "prop_invmap('$prop') list[1] is 0x41");
-is($invmap_ref->[1], 0x61, "prop_invmap('$prop') map[1] is 0x61");
+$prop = "uc";
+($invlist_ref, $invmap_ref, $format, $missing) = prop_invmap($prop);
+is($format, 'al', "prop_invmap() format of '$prop' is 'al'");
+is($missing, '0', "prop_invmap() missing of '$prop' is '0'");
+is($invlist_ref->[1], 0x61, "prop_invmap('$prop') list[1] is 0x61");
+is($invmap_ref->[1], 0x41, "prop_invmap('$prop') map[1] is 0x41");
+
+$prop = "upper";
+($invlist_ref, $invmap_ref, $format, $missing) = prop_invmap($prop);
+is($format, 's', "prop_invmap() format of '$prop' is 's");
+is($missing, 'N', "prop_invmap() missing of '$prop' is 'N'");
+is($invlist_ref->[1], 0x41, "prop_invmap('$prop') list[1] is 0x41");
+is($invmap_ref->[1], 'Y', "prop_invmap('$prop') map[1] is 'Y'");
+
+$prop = "lower";
+($invlist_ref, $invmap_ref, $format, $missing) = prop_invmap($prop);
+is($format, 's', "prop_invmap() format of '$prop' is 's'");
+is($missing, 'N', "prop_invmap() missing of '$prop' is 'N'");
+is($invlist_ref->[1], 0x61, "prop_invmap('$prop') list[1] is 0x61");
+is($invmap_ref->[1], 'Y', "prop_invmap('$prop') map[1] is 'Y'");
+
+$prop = "lc";
+($invlist_ref, $invmap_ref, $format, $missing) = prop_invmap($prop);
+is($format, 'al', "prop_invmap() format of '$prop' is 'al'");
+is($missing, '0', "prop_invmap() missing of '$prop' is '0'");
+is($invlist_ref->[1], 0x41, "prop_invmap('$prop') list[1] is 0x41");
+is($invmap_ref->[1], 0x61, "prop_invmap('$prop') map[1] is 0x61");
 }
 
 # This property is stable and small, so can test all of it

--
Perl5 Master Repository

[perl.git] branch blead, updated. v5.21.9-87-g4371844

[Steve Hay]

In perl.git, the branch blead has been updated



- Log -
commit 4371844fffe442ccc0baaf48a8281c6f8c19b1e7
Author: Steve Hay 
Date:   Thu Mar 5 23:00:35 2015 +

perldelta for previous commit (threads upgrade)

M   pod/perldelta.pod

commit 8fbabb5b5e46e824ccacb6428ef2cafaa666741f
Author: Jerry D. Hedden 
Date:   Thu Mar 5 00:28:51 2015 -0500

Upgrade to threads 1.98

M   Porting/Maintainers.pl
M   dist/threads/lib/threads.pm
M   dist/threads/t/exit.t
M   dist/threads/t/thread.t
---

Summary of changes:
 Porting/Maintainers.pl  |  2 +-
 dist/threads/lib/threads.pm |  4 ++--
 dist/threads/t/exit.t   | 10 +-
 dist/threads/t/thread.t |  2 +-
 pod/perldelta.pod   |  2 +-
 5 files changed, 10 insertions(+), 10 deletions(-)

diff --git a/Porting/Maintainers.pl b/Porting/Maintainers.pl
index e31be8f..9146b62 100755
--- a/Porting/Maintainers.pl
+++ b/Porting/Maintainers.pl
@@ -1160,7 +1160,7 @@ use File::Glob qw(:case);
 },
 
 'threads' => {
-'DISTRIBUTION' => 'JDHEDDEN/threads-1.97.tar.gz',
+'DISTRIBUTION' => 'JDHEDDEN/threads-1.98.tar.gz',
 'FILES'=> q[dist/threads],
 'EXCLUDED' => [
 qr{^examples/},
diff --git a/dist/threads/lib/threads.pm b/dist/threads/lib/threads.pm
index 47c6ccb..51d30fb 100644
--- a/dist/threads/lib/threads.pm
+++ b/dist/threads/lib/threads.pm
@@ -5,7 +5,7 @@ use 5.008;
 use strict;
 use warnings;
 
-our $VERSION = '1.97';
+our $VERSION = '1.98';
 my $XS_VERSION = $VERSION;
 $VERSION = eval $VERSION;
 
@@ -134,7 +134,7 @@ threads - Perl interpreter-based threads
 
 =head1 VERSION
 
-This document describes threads version 1.97
+This document describes threads version 1.98
 
 =head1 WARNING
 
diff --git a/dist/threads/t/exit.t b/dist/threads/t/exit.t
index a112e6f..f92f8c2 100644
--- a/dist/threads/t/exit.t
+++ b/dist/threads/t/exit.t
@@ -48,7 +48,7 @@ my $rc = $thr->join();
 ok(! defined($rc), 'Exited: threads->exit()');
 
 
-run_perl(prog => 'use threads 1.97;' .
+run_perl(prog => 'use threads 1.98;' .
  'threads->exit(86);' .
  'exit(99);',
  nolib => ($ENV{PERL_CORE}) ? 0 : 1,
@@ -98,7 +98,7 @@ $rc = $thr->join();
 ok(! defined($rc), 'Exited: $thr->set_thread_exit_only');
 
 
-run_perl(prog => 'use threads 1.97 qw(exit thread_only);' .
+run_perl(prog => 'use threads 1.98 qw(exit thread_only);' .
  'threads->create(sub { exit(99); })->join();' .
  'exit(86);',
  nolib => ($ENV{PERL_CORE}) ? 0 : 1,
@@ -108,7 +108,7 @@ run_perl(prog => 'use threads 1.97 qw(exit thread_only);' .
 is($?>>8, 86, "'use threads 'exit' => 'thread_only'");
 }
 
-my $out = run_perl(prog => 'use threads 1.97;' .
+my $out = run_perl(prog => 'use threads 1.98;' .
'threads->create(sub {' .
'exit(99);' .
'});' .
@@ -124,7 +124,7 @@ my $out = run_perl(prog => 'use threads 1.97;' .
 like($out, qr/1 finished and unjoined/, "exit(status) in thread");
 
 
-$out = run_perl(prog => 'use threads 1.97 qw(exit thread_only);' .
+$out = run_perl(prog => 'use threads 1.98 qw(exit thread_only);' .
 'threads->create(sub {' .
 '   threads->set_thread_exit_only(0);' .
 '   exit(99);' .
@@ -141,7 +141,7 @@ $out = run_perl(prog => 'use threads 1.97 qw(exit 
thread_only);' .
 like($out, qr/1 finished and unjoined/, "set_thread_exit_only(0)");
 
 
-run_perl(prog => 'use threads 1.97;' .
+run_perl(prog => 'use threads 1.98;' .
  'threads->create(sub {' .
  '   $SIG{__WARN__} = sub { exit(99); };' .
  '   die();' .
diff --git a/dist/threads/t/thread.t b/dist/threads/t/thread.t
index 40407bc..60a5544 100644
--- a/dist/threads/t/thread.t
+++ b/dist/threads/t/thread.t
@@ -161,7 +161,7 @@ package main;
 
 # bugid #24165
 
-run_perl(prog => 'use threads 1.97;' .
+run_perl(prog => 'use threads 1.98;' .
  'sub a{threads->create(shift)} $t = a sub{};' .
  '$t->tid; $t->join; $t->tid',
  nolib => ($ENV{PERL_CORE}) ? 0 : 1,
diff --git a/pod/perldelta.pod b/pod/perldelta.pod
index 938d7c2..830da13 100644
--- a/pod/perldelta.pod
+++ b/pod/perldelta.pod
@@ -165,7 +165,7 @@ No changes to installed files other than the version bump.
 
 =item *
 
-L has been upgraded from version 1.96 to 1.97.
+L has been upgraded from version 1.96 to 1.98.
 
 =back
 

--
Perl5 Master Repository

[perl.git] branch khw/ebcdic, deleted. v5.21.9-247-g8e2863d

[Karl Williamson]

In perl.git, the branch khw/ebcdic has been deleted



   was  8e2863dd409243f443fefd8d9af7d57d5829ad89

---
8e2863dd409243f443fefd8d9af7d57d5829ad89 XXX very temporary Skip pack.t
---

--
Perl5 Master Repository

[perl.git] branch khw/ebcdic, created. v5.21.9-226-g70c30d4

[Karl Williamson]

In perl.git, the branch khw/ebcdic has been created



at  70c30d4c0ce427c173c03e3f4caa472f851f21a0 (commit)

- Log -
commit 70c30d4c0ce427c173c03e3f4caa472f851f21a0
Author: Karl Williamson 
Date:   Thu Mar 5 14:47:16 2015 -0700

Data::Dumper/t/dumper.t: only specify number of tests once

This calculates the number of tests when some modules are unavailable,
instead of it having to be specified each time there is a change.

M   dist/Data-Dumper/t/dumper.t

commit b87b8b0604ac189aac8d467684c9e464393477da
Author: Karl Williamson 
Date:   Thu Mar 5 14:46:42 2015 -0700

Data::Dumper/t/dumper.t: Add test

This is for the special handling needed in EBCDIC

M   dist/Data-Dumper/t/dumper.t

commit e8763e431ad1adb49effc76aafd391d723ff8ddb
Author: Karl Williamson 
Date:   Thu Mar 5 14:28:49 2015 -0700

Data::Dumper/t/dumper.t: Remove test numbers from comments

These are no longer correct, and hard to maintain.  It's not worth it.

M   dist/Data-Dumper/t/dumper.t

commit f94dd399d23b46ee5f7530e45df1eaf0c4888996
Author: Karl Williamson 
Date:   Wed Feb 4 13:22:25 2015 -0700

XXX Debug dist/ExtUtils-CBuilder/t/04-base.t

M   dist/ExtUtils-CBuilder/t/04-base.t

commit 03228b3a2066955b7a6ea6bbba38d1aa5d4c9aab
Author: Karl Williamson 
Date:   Mon Mar 2 22:08:41 2015 -0700

DBM_Filter/t/utf8.t: Generalize for other EBCDIC code pages

This works for EBCDIC 1047, but not for other pages.  This uses the
tools created for the purpose to make it general.

M   lib/DBM_Filter/t/utf8.t

commit 623ce0582e6de3c28f3222de22a2129c13729f04
Author: Karl Williamson 
Date:   Mon Mar 2 22:07:45 2015 -0700

XXX DBM_Filter/t/encode.t: temporarily skip until Encode fixed

M   lib/DBM_Filter/t/encode.t

commit d7eaa56d0fb14cb16412806d0e98223e130a49bb
Author: Karl Williamson 
Date:   Sat Apr 13 15:54:37 2013 -0600

XXX still errors lib/DBM_Filter/t/encode.t: Generalize for non-ASCII 
platforms

M   lib/DBM_Filter/t/encode.t

commit b5c10a23d572975e4619eb1d225ae955bd974835
Author: Karl Williamson 
Date:   Fri Feb 6 14:11:01 2015 -0700

Data-Dumper/t/dumper.t: Generalize for EBCDIC platforms

M   dist/Data-Dumper/t/dumper.t

commit ff48a6747889a583fad5dd54e08e54a8f7b90e18
Author: Karl Williamson 
Date:   Sat Sep 7 12:59:57 2013 -0600

XXX reword maybe merge dist/Data-Dumper/Dumper.pm

M   dist/Data-Dumper/Dumper.pm

commit a992d2800216082c7312f6385422333251910af6
Author: Karl Williamson 
Date:   Wed Mar 13 16:16:14 2013 -0600

XXX reword, maybe split Data::Dumper: xs

M   dist/Data-Dumper/Dumper.xs

commit f4511e2aa0e26512e966179ee29a2f04741c6510
Author: Karl Williamson 
Date:   Sat Oct 25 21:08:52 2014 -0600

dist/Data-Dumper/t/quotekeys.t: Generalize for EBCDIC

M   dist/Data-Dumper/t/quotekeys.t

commit 6c2ea3166848305588c172a2f131cd5500d960fa
Author: Karl Williamson 
Date:   Fri Feb 6 14:43:33 2015 -0700

Revert "Test Encode and podlators."

M   t/TEST

commit e4adc77038ac281f058d5533dc048603cfa49c86
Author: Karl Williamson 
Date:   Thu Feb 5 17:22:01 2015 -0700

Test Encode and podlators.

M   t/TEST

commit 67fca719ba2d17b9ee8c1c7ecaf2abf11ec71795
Author: Karl Williamson 
Date:   Thu Feb 5 17:13:14 2015 -0700

Revert "XXX Test Pod-Simple for now on os390"

This reverts commit e5d36043a3b21df789c9a58ac5a5290ad4036294.

M   t/TEST

commit 3e719a0f7291db7ef0c92d95fbbfedf536b9303c
Author: Karl Williamson 
Date:   Mon Feb 2 09:50:22 2015 -0700

XXX Test Pod-Simple for now on os390

M   t/TEST

commit 7b422617a46253927b6484e7581ce1c247a4622a
Author: Karl Williamson 
Date:   Wed Mar 4 16:07:01 2015 -0700

XXX very temporary Skip pack.t

M   t/op/pack.t

commit ce5cda748fe6fc4a842945a8a1d3069d49a6f01e
Author: Karl Williamson 
Date:   Wed Mar 4 16:05:19 2015 -0700

utf8.pm: Add pod details

M   lib/utf8.pm

commit 0adb861438f46cfe8e6a4c3b398997e44f825ff4
Author: Karl Williamson 
Date:   Mon Mar 2 21:31:07 2015 -0700

porting/readme.t: TODO failing EBCDIC test

This depends on Unicode::Collate, which is not yet working properly in
EBCDIC

M   t/porting/readme.t

commit 3d67b1f8123dbf1482053b2286bfe3cd50010e47
Author: Karl Williamson 
Date:   Thu Feb 26 18:10:08 2015 -0700

XXX refer to email thread POSIX/t/sigaction.t: Skip failing EBCDIC test

We don't know why this is faiing, but it also fails on another IBM
product, AIX 4.2.  Skip for now.

M   ext/POSIX/t/sigaction.t

commit 9ed6bc98c70c83f5b26a21ce2b564fa1360411e9
Author: Karl Williamson 
Date:   Sun Feb 1 21:29:07 2015 -0700

XXX Not complete: Fix \N{U+41} to work on EBCDIC

M   embed.fnc
M   proto.h
M   regcomp.c
M   t/re/re_tests
M   toke.c

commit 

[perl.git] branch blead, updated. v5.21.9-85-g0020d0e

[Karl Williamson]

In perl.git, the branch blead has been updated



- Log -
commit 0020d0e9e9cf88e094801eb903aa9a8317c4e54f
Author: Karl Williamson 
Date:   Fri Nov 21 09:22:53 2014 -0700

lib/Config.t: Skip tests that are invalid on os390

M   lib/Config.t

commit 54c2f00215f3a482583168c48e37c530777cca75
Author: Karl Williamson 
Date:   Wed Oct 29 10:08:46 2014 -0600

t/comp/require.t: No longer needed to skip on EBCDIC

M   t/comp/require.t

commit b09cd55147659a444e0092b3ee3b9334354cd4c8
Author: Karl Williamson 
Date:   Mon Jun 9 12:30:23 2014 -0600

t/uni/write.t: Don't skip EBCDIC tests

This now passes on os390

M   t/uni/write.t

commit 72b4e0d1e68a5aef4b68a43b3c3fd62364c09a75
Author: Karl Williamson 
Date:   Wed Jun 26 15:28:41 2013 -0600

t/lib/warnings/utf8: Update skip message

It is not that EBCDIC platforms don't check for malformedness; it is
that a different message gets generated on them, and it's too much
bother to figure it out for each such platform.

M   t/lib/warnings/utf8

commit 26aca2acbdbaea29fdad17ec0e0dfd39b491b913
Author: Karl Williamson 
Date:   Mon Mar 2 15:03:08 2015 -0700

t/test.pl: EBCDIC, utf8 fixes

This changes the display of all low-ordinal EBCDIC controls to octal,
instead of just the ones that correspond to the ASCII C0 controls.

It also makes sure that [:print:] thinks all non-ASCII are
non-printable.

M   t/test.pl
---

Summary of changes:
 lib/Config.t|  1 +
 t/comp/require.t|  4 ++--
 t/lib/warnings/utf8 |  2 +-
 t/test.pl   | 15 ---
 t/uni/write.t   |  1 -
 5 files changed, 12 insertions(+), 11 deletions(-)

diff --git a/lib/Config.t b/lib/Config.t
index ee2eaea..abd9316 100644
--- a/lib/Config.t
+++ b/lib/Config.t
@@ -262,6 +262,7 @@ foreach my $lib (qw(applibexp archlibexp privlibexp 
sitearchexp sitelibexp
   my $dir = $Config{$lib};
   SKIP: {
 skip "lib $lib not in \@INC on Win32" if $^O eq 'MSWin32';
+skip "lib $lib not in \@INC on os390" if $^O eq 'os390';
 skip "lib $lib not defined" unless defined $dir;
 skip "lib $lib not set" unless length $dir;
 # May be in @INC in either Unix or VMS format on VMS.
diff --git a/t/comp/require.t b/t/comp/require.t
index ea569ad..be43c63 100644
--- a/t/comp/require.t
+++ b/t/comp/require.t
@@ -346,9 +346,9 @@ if (defined &DynaLoader::boot_DynaLoader) {
 # Add generic tests before this point.   #
 ##
 
-# UTF-encoded things - skipped on EBCDIC machines and on UTF-8 input
+# UTF-encoded things - skipped on UTF-8 input
 
-if ($Is_EBCDIC || $Is_UTF8) { exit; }
+if ($Is_UTF8) { exit; }
 
 my %templates = (
 'UTF-8'=> 'C0U',
diff --git a/t/lib/warnings/utf8 b/t/lib/warnings/utf8
index 75f3f25..4a7cef1 100644
--- a/t/lib/warnings/utf8
+++ b/t/lib/warnings/utf8
@@ -17,7 +17,7 @@ __END__
 # utf8.c [utf8_to_uvchr_buf] -W
 BEGIN {
 if (ord('A') == 193) {
-print "SKIPPED\n# ebcdic platforms do not generate Malformed UTF-8 
warnings.";
+print "SKIPPED\n# ebcdic platforms generates different Malformed UTF-8 
warnings.";
 exit 0;
 }
 }
diff --git a/t/test.pl b/t/test.pl
index 21d54b4..3cfb1c4 100644
--- a/t/test.pl
+++ b/t/test.pl
@@ -300,13 +300,14 @@ sub display {
 $y = $y . $backslash_escape{$c};
 } else {
 my $z = chr $c; # Maybe we can get away with a literal...
-if ($z =~ /[[:^print:]]/) {
-
-# Use octal for characters traditionally expressed as
-# such: the low controls, which on EBCDIC aren't
-# necessarily the same ones as on ASCII platforms, but
-# are small ordinals, nonetheless
-if ($c <= 037) {
+if ($z =~ /[[:^print:]]/a) {
+
+# Use octal for characters with small ordinals that
+# are traditionally expressed as octal: the controls
+# below space, which on EBCDIC are almost all the
+# controls, but on ASCII don't include DEL nor the C1
+# controls.
+if ($c < ord " ") {
 $z = sprintf "\\%03o", $c;
 } else {
 $z = sprintf "\\x{%x}", $c;
diff --git a/t/uni/write.t b/t/uni/write.t
index d011861..c099957 100644
--- a/t/uni/write.t
+++ b/t/uni/write.t
@@ -4,7 +4,6 @@ use strict;
 BEGIN {
 chdir 't' if -d 't';
 require './test.pl';
-skip_all("EBCDIC porting needed") if $::IS_EBCDIC;
 skip_all_without_perlio(

[perl.git] branch blead, updated. v5.21.9-80-g52ee771

[Karl Williamson]

In perl.git, the branch blead has been updated



- Log -
commit 52ee771d0013986b6872a92462554167295e583d
Author: Karl Williamson 
Date:   Mon Mar 2 15:00:25 2015 -0700

lib/Unicode/UCD.t: Fixes to work on EBCDIC

These were broken by the upgrade of Unicode::UCD to version 0.61
---

Summary of changes:
 lib/Unicode/UCD.t | 10 +-
 1 file changed, 5 insertions(+), 5 deletions(-)

diff --git a/lib/Unicode/UCD.t b/lib/Unicode/UCD.t
index ee6ec03..969e0f8 100644
--- a/lib/Unicode/UCD.t
+++ b/lib/Unicode/UCD.t
@@ -72,7 +72,7 @@ is(charprop($cp, "script"), "Common");
 $cp = utf8::unicode_to_native(0x41);
 my $A_code = sprintf("%04X", ord("A"));
 my $a_code = sprintf("%04X", ord("a"));
-$charinfo = charinfo(utf8::unicode_to_native($cp));
+$charinfo = charinfo($cp);
 
 is($charinfo->{code},   $A_code, "LATIN CAPITAL LETTER A");
 is($charinfo->{name},   "LATIN CAPITAL LETTER A");
@@ -367,7 +367,7 @@ is(charblock(0x1),"No_Block", "0x1 - unused 
charblock");
 
 my $fraction_3_4_code = sprintf("%04X", utf8::unicode_to_native(0xbe));
 $cp = $fraction_3_4_code;
-$charinfo = charinfo(hex $fraction_3_4_code);
+$charinfo = charinfo($fraction_3_4_code);
 
 is($charinfo->{code},   $fraction_3_4_code, "VULGAR FRACTION THREE 
QUARTERS");
 is($charinfo->{name},   "VULGAR FRACTION THREE QUARTERS");
@@ -394,11 +394,11 @@ is(charprop($cp, 'na1'),"FRACTION THREE 
QUARTERS");
 is($charinfo->{comment},"");
 is(charprop($cp, 'isc'),"");
 is($charinfo->{upper},  "");
-is(charprop($cp, 'uc'), "\x{be}");
+is(charprop($cp, 'uc'), chr hex $cp);
 is($charinfo->{lower},  "");
-is(charprop($cp, 'lc'), "\x{be}");
+is(charprop($cp, 'lc'), chr hex $cp);
 is($charinfo->{title},  "");
-is(charprop($cp, 'tc'), "\x{be}");
+is(charprop($cp, 'tc'), chr hex $cp);
 is($charinfo->{block},  "Latin-1 Supplement");
 is(charprop($cp, 'block'),  "Latin_1_Supplement");
 is($charinfo->{script}, "Common");

--
Perl5 Master Repository

[perl.git] branch blead, updated. v5.21.9-79-ge1c247f

[Karl Williamson]

In perl.git, the branch blead has been updated



- Log -
commit e1c247fd3eaa439c568393bc8c2187467fd2998d
Author: Karl Williamson 
Date:   Thu Mar 5 12:08:48 2015 -0700

lib/open.t: Fix skip count
---

Summary of changes:
 lib/open.t | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/lib/open.t b/lib/open.t
index 3a5565d..d24c83d 100644
--- a/lib/open.t
+++ b/lib/open.t
@@ -181,8 +181,8 @@ EOE
 }
 }
 SKIP: {
-skip("no perlio", 2) unless (find PerlIO::Layer 'perlio');
-skip("no Encode", 2) unless $Config{extensions} =~ m{\bEncode\b};
+skip("no perlio", 1) unless (find PerlIO::Layer 'perlio');
+skip("no Encode", 1) unless $Config{extensions} =~ m{\bEncode\b};
 
 eval q[use Encode::Alias;use open ":std", ":locale"];
 is($@, '', 'can use :std and :locale');

--
Perl5 Master Repository

[perl.git] branch blead, updated. v5.21.9-78-gdd7a2a7

[Karl Williamson]

In perl.git, the branch blead has been updated



- Log -
commit dd7a2a7af636cde45de0b496864f9c9aefcca59b
Author: Karl Williamson 
Date:   Thu Mar 5 10:34:08 2015 -0700

Data::Dumper/t/dumper.t: Fix comments
---

Summary of changes:
 dist/Data-Dumper/t/dumper.t | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/dist/Data-Dumper/t/dumper.t b/dist/Data-Dumper/t/dumper.t
index f452ad2..b897f8e 100644
--- a/dist/Data-Dumper/t/dumper.t
+++ b/dist/Data-Dumper/t/dumper.t
@@ -1384,7 +1384,7 @@ EOT
 if ($Is_ebcdic) {
$b = "Bad. XS didn't escape dollar sign";
 # 322
-   $WANT = <<"EOT"; # Careful. This is '' string written inside '' here doc
+   $WANT = <<"EOT"; # Careful. This is '' string written inside "" here doc
 #\$VAR1 = '\$b\"\@\xB1';
 EOT
 $a = "\$b\"\@\\\xB1\x{100}";
@@ -1399,7 +1399,7 @@ EOT
 } else {
$b = "Bad. XS didn't escape dollar sign";
 # 322
-   $WANT = <<"EOT"; # Careful. This is '' string written inside '' here doc
+   $WANT = <<"EOT"; # Careful. This is '' string written inside "" here doc
 #\$VAR1 = '\$b\"\@\xA3';
 EOT
 

--
Perl5 Master Repository

[perl.git] branch smoke-me/khw-sets, created. v5.21.9-78-g1082d91

[Karl Williamson]

In perl.git, the branch smoke-me/khw-sets has been created



at  1082d9116bfbddc73ef653f8967c8f6addad6ec6 (commit)

- Log -
commit 1082d9116bfbddc73ef653f8967c8f6addad6ec6
Author: Karl Williamson 
Date:   Wed Feb 25 23:19:39 2015 -0700

XXX smoke

Needs to be split
---

--
Perl5 Master Repository

[perl.git] branch smoke-me/khw-sets, deleted. v5.21.9-74-g6ad4165

[Karl Williamson]

In perl.git, the branch smoke-me/khw-sets has been deleted



   was  6ad4165389a367eb6c9da61ca3a6e43949c9e17c

---
6ad4165389a367eb6c9da61ca3a6e43949c9e17c XXX smoke
---

--
Perl5 Master Repository

[perl.git] branch blead, updated. v5.21.9-77-g0f6f92e

[Rafael Garcia-Suarez]

In perl.git, the branch blead has been updated



- Log -
commit 0f6f92e0b139f81313e47d8eb6d0c323dfd77b62
Author: Rafael Garcia-Suarez 
Date:   Thu Mar 5 17:37:33 2015 +0100

readline should behave as <>, not <<>>

This fixes bug #123990. The cause was that one promotion to
OP_READLINE was not cleaning the special flag on that op.
---

Summary of changes:
 op.c|  2 +-
 t/io/argv.t | 19 ++-
 2 files changed, 15 insertions(+), 6 deletions(-)

diff --git a/op.c b/op.c
index 9ddfb9b..bbf6a8d 100644
--- a/op.c
+++ b/op.c
@@ -10334,7 +10334,7 @@ Perl_ck_readline(pTHX_ OP *o)
 }
 else {
OP * const newop
-   = newUNOP(OP_READLINE, o->op_flags | OPf_SPECIAL, newGVOP(OP_GV, 0, 
PL_argvgv));
+   = newUNOP(OP_READLINE, 0, newGVOP(OP_GV, 0, PL_argvgv));
op_free(o);
return newop;
 }
diff --git a/t/io/argv.t b/t/io/argv.t
index 03440a2..a9da09f 100644
--- a/t/io/argv.t
+++ b/t/io/argv.t
@@ -7,7 +7,7 @@ BEGIN {
 
 BEGIN { require "./test.pl"; }
 
-plan(tests => 36);
+plan(tests => 37);
 
 my ($devnull, $no_devnull);
 
@@ -39,6 +39,15 @@ is($x, "1a line\n2a line\n", '<> from two files');
 );
 is($x, "a line\nfoo\n", '<> from a file and STDIN');
 
+# readline should behave as <>, not <<>>
+$x = runperl(
+prog   => 'while (readline) { print $_; }',
+stdin  => "foo\n",
+stderr => 1,
+args   => [ '-' ],
+);
+is($x, "foo\n", 'readline() from STDIN');
+
 $x = runperl(
prog=> 'while (<>) { print $_; }',
stdin   => "foo\n",
@@ -91,7 +100,7 @@ close TRY or die "Could not close: $!";
 @ARGV = ('Io_argv1.tmp', 'Io_argv2.tmp');
 $^I = '_bak';   # not .bak which confuses VMS
 $/ = undef;
-my $i = 10;
+my $i = 11;
 while (<>) {
 s/^/ok $i\n/;
 ++$i;
@@ -116,7 +125,7 @@ open STDIN, 'Io_argv1.tmp' or die $!;
 @ARGV = ();
 ok( !eof(), 'STDIN has something' );
 
-is( <>, "ok 10\n" );
+is( <>, "ok 11\n" );
 
 SKIP: {
 skip_if_miniperl($no_devnull, 4);
@@ -196,13 +205,13 @@ like($x, qr/^Can't open -: .* at -e line 1/, '<<>> does 
not treat - as STDIN');
 prog   => 'push @ARGV,q//;print while <>',
 stderr => 1,
 );
-like($x, qr/^Can't open : .* at -e line 1/, '<<>> does not treat - as 
STDIN');
+like($x, qr/^Can't open : .* at -e line 1/, '<> does not open empty string 
in ARGV');
 
 $x = runperl(
 prog   => 'push @ARGV,q//;print while <<>>',
 stderr => 1,
 );
-like($x, qr/^Can't open : .* at -e line 1/, '<<>> does not treat - as 
STDIN');
+like($x, qr/^Can't open : .* at -e line 1/, '<<>> does not open empty 
string in ARGV');
 }
 
 SKIP: {

--
Perl5 Master Repository

[perl.git] branch tux/armv5tel, deleted. v5.19.3-316-g9f95bf3

[H.Merijn Brand]

In perl.git, the branch tux/armv5tel has been deleted



   was  9f95bf30dc0ebb332e027670c55e995e995b32c6

---
9f95bf30dc0ebb332e027670c55e995e995b32c6 Note (new) platform support
---

--
Perl5 Master Repository

[perl.git] branch tux/Configure, deleted. v5.17.11-129-g6e4da6a

[H.Merijn Brand]

In perl.git, the branch tux/Configure has been deleted



   was  6e4da6ac2da242ec7b9974a96deb81c6aced9da6

---
6e4da6ac2da242ec7b9974a96deb81c6aced9da6 regenerated uconfig
---

--
Perl5 Master Repository

[perl.git] branch blead, updated. v5.21.9-76-g2b5060a

[Dave Mitchell]

In perl.git, the branch blead has been updated



- Log -
commit 2b5060aeb95612aea17de446e9d72793e28bf8a9
Author: David Mitchell 
Date:   Thu Mar 5 11:44:37 2015 +

sprinkle NOTREACHED and FALLTHROUGH

Coverity complains bitterly about many switch statements in lots of files.

Many of these are of the form:

case FOO:
...
goto baz;
case BAR:


and something as smart as Coverity shouldn't really be complaining about
a missing 'break' when the last statement of the previous branch is an
unconditional goto/return/continue. But I've shoved in a bunch of
'NOTREACHED' to hopefully shut it up.

Missing 'FALLTHROUGH' comments were more reasonable, and I've added them
where appropriate.

The only confusing one was cx_dup(), where the various CXt_LOOP_ branches
all fell through to the next one, and it took a while to figure out that
those weren't bugs.

M   dump.c
M   ext/B/B.pm
M   ext/B/B.xs
M   op.c
M   perl.c
M   sv.c

commit 010725738074e6477ae945076c10bb2d2042390d
Author: David Mitchell 
Date:   Thu Mar 5 11:01:01 2015 +

pp.c: remove unneeded SPAGAIN's

Spotted by Coverity.

I've left the SPAGAIN but commented out, in case future changes
to the code make them needed again.

M   pp.c
---

Summary of changes:
 dump.c | 10 ++
 ext/B/B.pm |  2 +-
 ext/B/B.xs | 10 ++
 op.c   |  2 ++
 perl.c |  3 +++
 pp.c   |  4 ++--
 sv.c   | 14 +++---
 7 files changed, 39 insertions(+), 6 deletions(-)

diff --git a/dump.c b/dump.c
index 8d2f95b..33bd527 100644
--- a/dump.c
+++ b/dump.c
@@ -2359,38 +2359,48 @@ Perl_multideref_stringify(pTHX_ const OP *o, CV *cv)
 case MDEREF_reload:
 actions = (++items)->uv;
 continue;
+NOT_REACHED; /* NOTREACHED */
 
 case MDEREF_HV_padhv_helem:
 is_hash = TRUE;
+/* FALLTHROUGH */
 case MDEREF_AV_padav_aelem:
 derefs = 1;
 S_append_padvar(aTHX_ (++items)->pad_offset, cv, out, 1, 0, 1);
 goto do_elem;
+NOT_REACHED; /* NOTREACHED */
 
 case MDEREF_HV_gvhv_helem:
 is_hash = TRUE;
+/* FALLTHROUGH */
 case MDEREF_AV_gvav_aelem:
 derefs = 1;
 sv = ITEM_SV(++items);
 S_append_gv_name(aTHX_ (GV*)sv, out);
 goto do_elem;
+NOT_REACHED; /* NOTREACHED */
 
 case MDEREF_HV_gvsv_vivify_rv2hv_helem:
 is_hash = TRUE;
+/* FALLTHROUGH */
 case MDEREF_AV_gvsv_vivify_rv2av_aelem:
 sv = ITEM_SV(++items);
 S_append_gv_name(aTHX_ (GV*)sv, out);
 goto do_vivify_rv2xv_elem;
+NOT_REACHED; /* NOTREACHED */
 
 case MDEREF_HV_padsv_vivify_rv2hv_helem:
 is_hash = TRUE;
+/* FALLTHROUGH */
 case MDEREF_AV_padsv_vivify_rv2av_aelem:
 S_append_padvar(aTHX_ (++items)->pad_offset, cv, out, 1, 0, 1);
 goto do_vivify_rv2xv_elem;
+NOT_REACHED; /* NOTREACHED */
 
 case MDEREF_HV_pop_rv2hv_helem:
 case MDEREF_HV_vivify_rv2hv_helem:
 is_hash = TRUE;
+/* FALLTHROUGH */
 do_vivify_rv2xv_elem:
 case MDEREF_AV_pop_rv2av_aelem:
 case MDEREF_AV_vivify_rv2av_aelem:
diff --git a/ext/B/B.pm b/ext/B/B.pm
index 5deaa2c..e8c45ee 100644
--- a/ext/B/B.pm
+++ b/ext/B/B.pm
@@ -15,7 +15,7 @@ require Exporter;
 # walkoptree comes from B.xs
 
 BEGIN {
-$B::VERSION = '1.56';
+$B::VERSION = '1.57';
 @B::EXPORT_OK = ();
 
 # Our BOOT code needs $VERSION set, and will append to @EXPORT_OK.
diff --git a/ext/B/B.xs b/ext/B/B.xs
index 41518d8..b9885c3 100644
--- a/ext/B/B.xs
+++ b/ext/B/B.xs
@@ -1418,36 +1418,46 @@ aux_list(o, cv)
 actions = (++items)->uv;
 PUSHs(sv_2mortal(newSVuv(actions)));
 continue;
+NOT_REACHED; /* NOTREACHED */
 
 case MDEREF_HV_padhv_helem:
 is_hash = TRUE;
+/* FALLTHROUGH */
 case MDEREF_AV_padav_aelem:
 PUSHs(sv_2mortal(newSVuv((++items)->pad_offset)));
 goto do_elem;
+NOT_REACHED; /* NOTREACHED */
 
 case MDEREF_HV_gvhv_helem:
 is_hash = TRUE;
+/* FALLTHROUGH */
 case MDEREF_AV_gvav_aelem:
 sv = ITEM_SV(++items);

[perl.git] branch blead, updated. v5.21.9-74-gf93695f

[Dave Mitchell]

In perl.git, the branch blead has been updated



- Log -
commit f93695f990c755bfd70a59f0ac4caf55173fdb4a
Author: David Mitchell 
Date:   Thu Mar 5 10:28:28 2015 +

document why S_maybe_multideref is Coverity-safe
---

Summary of changes:
 op.c | 8 +++-
 1 file changed, 7 insertions(+), 1 deletion(-)

diff --git a/op.c b/op.c
index 5adc788..5f25121 100644
--- a/op.c
+++ b/op.c
@@ -12227,7 +12227,13 @@ S_maybe_multideref(pTHX_ OP *start, OP *orig_o, UV 
orig_action, U8 hints)
  * determines whether the op chain is convertible and calculates the
  * buffer size; the second pass populates the buffer and makes any
  * changes necessary to ops (such as moving consts to the pad on
- * threaded builds)
+ * threaded builds).
+ *
+ * NB: for things like Coverity, note that both passes take the same
+ * path through the logic tree (except for 'if (pass)' bits), since
+ * both passes are following the same op_next chain; and in
+ * particular, if it would return early on the second pass, it would
+ * already have returned early on the first pass.
  */
 for (pass = 0; pass < 2; pass++) {
 OP *o= orig_o;

--
Perl5 Master Repository