lib/diagnostics.t: Use different test data

This is testing that things work for two adjacent =item lines in
perldiag.pod that share the same description.  However a future commit
will change perldiag.pod so that one of the specific adjacent lines
previously used here will be removed.  Therefore, choose a different set
of adjacent lines that aren't scheduled to be changed.

This adds a comment in perldiag that the newly chosen adjacent lines are
thus used in diagnostics.t

diff --git a/lib/diagnostics.t b/lib/diagnostics.t
index 0328522..d6b6c82 100644 (file)
--- a/lib/diagnostics.t
+++ b/lib/diagnostics.t
@@ -48,8 +48,8 @@ like $warning, qr/lex_stuff_pvn or similar/, 'L<foo|bar/baz>';
 # Multiple messages with the same description
 seek STDERR, 0,0;
 $warning = '';
-warn 'Code point 0xBEE5 is not Unicode, may not be portable';
-like $warning, qr/S utf8/,
+warn 'Deep recursion on anonymous subroutine';
+like $warning, qr/W recursion/,
    'Message sharing its description with the following message';
 
 # Periods at end of entries in perldiag.pod get matched correctly

diff --git a/pod/perldiag.pod b/pod/perldiag.pod
index bf05f2b..0b3c096 100644 (file)
--- a/pod/perldiag.pod
+++ b/pod/perldiag.pod
@@ -1578,6 +1578,10 @@ valid magic number.
 you have also specified an explicit size for the string.  See
 L<perlfunc/pack>.
 
+=for comment
+The following are used in lib/diagnostics.t for testing two =items that
+share the same description.  Changes here need to be propagated to there
+
 =item Deep recursion on anonymous subroutine
 
 =item Deep recursion on subroutine "%s"