Integrate mainline

p4raw-id: //depot/perlio@12444

3 files changed, 62 insertions, 3 deletions

diff --git a/t/lib/warnings/7fatal b/t/lib/warnings/7fatal
index a25fa2c2ea..23c88d82e3 100644
--- a/t/lib/warnings/7fatal
+++ b/t/lib/warnings/7fatal
@@ -310,3 +310,49 @@ print "done\n" ;
 EXPECT
 Useless use of time in void context at - line 4.
 Useless use of length in void context at - line 8.
+########
+
+use warnings FATAL => 'all';
+{
+    no warnings;
+    my $b ; chop $b;
+    {
+        use warnings ;
+        my $b ; chop $b;
+    }
+}
+my $b ; chop $b;
+print STDERR "The End.\n" ;
+EXPECT
+Use of uninitialized value in scalar chop at - line 8.
+Use of uninitialized value in scalar chop at - line 11.
+########
+
+use warnings FATAL => 'all';
+{
+    no warnings FATAL => 'all';
+    my $b ; chop $b;
+    {
+        use warnings ;
+        my $b ; chop $b;
+    }
+}
+my $b ; chop $b;
+print STDERR "The End.\n" ;
+EXPECT
+Use of uninitialized value in scalar chop at - line 8.
+Use of uninitialized value in scalar chop at - line 11.
+########
+
+use warnings FATAL => 'all';
+{
+    no warnings 'syntax';
+    {
+        use warnings ;
+        my $b ; chop $b;
+    }
+}
+my $b ; chop $b;
+print STDERR "The End.\n" ;
+EXPECT
+Use of uninitialized value in scalar chop at - line 7.
diff --git a/t/op/magic.t b/t/op/magic.t
index 20d973b403..c39ad64e4c 100755
--- a/t/op/magic.t
+++ b/t/op/magic.t
@@ -65,7 +65,7 @@ ok $!, $!;
 close FOO; # just mention it, squelch used-only-once
 
 if ($Is_MSWin32 || $Is_NetWare || $Is_Dos || $Is_MPE || $Is_MacOS) {
-    skip() for 1..2;
+    skip('SIGINT not safe on this platform') for 1..2;
 }
 else {
   # the next tests are embedded inside system simply because sh spits out
@@ -218,7 +218,7 @@ ok $^O;
 ok $^T > 850000000, $^T;
 
 if ($Is_VMS || $Is_Dos || $Is_MacOS) {
-    skip() for 1..2;
+    skip("cannot test on $^O") for 1..2;
 }
 else {
 	$PATH = $ENV{PATH};
diff --git a/t/op/pat.t b/t/op/pat.t
index 63c5ba21fb..0f978d106b 100755
--- a/t/op/pat.t
+++ b/t/op/pat.t
@@ -6,7 +6,7 @@
 
 $| = 1;
 
-print "1..744\n";
+print "1..747\n";
 
 BEGIN {
     chdir 't' if -d 't';
@@ -2230,3 +2230,16 @@ print "# some Unicode properties\n";
     print "not " if     "1" =~ /\p{L&}/;
     print "ok 744\n";
 }
+
+{
+    print "not " unless "a" =~ /\p{LowercaseLetter}/;
+    print "ok 745\n";
+
+    print "not " if     "A" =~ /\p{LowercaseLetter}/;
+    print "ok 746\n";
+}
+
+{
+    print "not " unless "\x{AC00}" =~ /\p{HangulSyllable}/;
+    print "ok 747\n";
+}