Move the locale/strict/warnings helper files back

[perl5.git] / lib / warnings / utf8

diff --git a/lib/warnings/utf8 b/lib/warnings/utf8
deleted file mode 100644 (file)
index 9a7dbaf..0000000
--- a/lib/warnings/utf8
+++ /dev/null
@@ -1,35 +0,0 @@
-
-  utf8.c AOK
-
-     [utf8_to_uv]
-     Malformed UTF-8 character
-       my $a = ord "\x80" ;
-
-     Malformed UTF-8 character
-       my $a = ord "\xf080" ;
-     <<<<<< this warning can't be easily triggered from perl anymore
-
-     [utf16_to_utf8]
-     Malformed UTF-16 surrogate                
-     <<<<<< Add a test when somethig actually calls utf16_to_utf8
-
-__END__
-# utf8.c [utf8_to_uv] -W
-BEGIN {
-    if (ord('A') == 193) {
-        print "SKIPPED\n# ebcdic platforms do not generate Malformed UTF-8 warnings.";
-        exit 0;
-    }
-}
-use utf8 ;
-my $a = "snøstorm" ;
-{
-    no warnings 'utf8' ;
-    my $a = "snøstorm";
-    use warnings 'utf8' ;
-    my $a = "snøstorm";
-}
-EXPECT
-Malformed UTF-8 character (unexpected non-continuation byte 0x73 after start byte 0xf8) at - line 9.
-Malformed UTF-8 character (unexpected non-continuation byte 0x73 after start byte 0xf8) at - line 14.
-########