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
# 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
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"