lib/perl5db.pl: Fix pod typo

[perl5.git] / lib / diagnostics.t

diff --git a/lib/diagnostics.t b/lib/diagnostics.t
index 7c04342..0b35d16 100644 (file)
--- a/lib/diagnostics.t
+++ b/lib/diagnostics.t
@@ -106,7 +106,7 @@ seek STDERR, 0,0;
 $warning = '';
 warn "Using just the first character returned by \\N{} in character class in regex; marked by <-- HERE in m/%s/";
 like $warning,
-    qr/A charnames handler may return a sequence/s,
+    qr/Named Unicode character escapes/s,
     'multi-line entries in perldiag.pod match';
 
 # ; at end of entry in perldiag.pod
@@ -134,15 +134,12 @@ like $warning,
     'spaces in warnings with periods at the end are matched lightly';
 
 # Wrapped links
-SKIP: {
-skip("We no longer have any multi-line links", 1);
 seek STDERR, 0,0;
 $warning = '';
 warn "Argument \"%s\" treated as 0 in increment (++)";
 like $warning,
     qr/Auto-increment.*Auto-decrement/s,
     'multiline links are not truncated';
-}
 
 {
 # Find last warning in perldiag.pod, and last items if any