Fix Pod::Text quoting heuristics for C<>

If the contents of C<> contained a newline right before remaining
text that would not normally be quoted, the entire contents were
not quoted because of an incorrectly anchored regex. Fix by anchoring
at the start of the string rather than the start of the line. Thanks,
van-de-bugger.

Fixes #39

Author: rra

Changes

@@ -1,5 +1,10 @@
                       Revision history for podlators
 
+v6.0.3 - Not Released
+
+- Fix Pod::Text quoting heuristics for C<> when the contents contains
+  newlines. Thanks to van-de-bugger for the report. (GitHub #39)
+
 v6.0.2 - 2024-07-14
 
  - Fix removal of scripts/pod2man and scripts/pod2text by make realclean,

lib/Pod/Text.pm

@@ -651,7 +651,7 @@ sub cmd_c {
          }xms;
     }
     $text =~ m{
-      ^\s*
+      \A\s*
       (?:
          ( [\'\`\"] ) .* \1                  # already quoted
        | \` .* \'                            # `quoted'

t/data/snippets/text/c-with-newline

@@ -0,0 +1,12 @@
+[name]
+C<> with newline
+
+[input]
+=head1 CE<lt>E<gt> WITH NEWLINE
+
+What does C<--columns
+$COLUMNS> end up looking like?
+
+[output]
+C<> WITH NEWLINE
+    What does "--columns $COLUMNS" end up looking like?

t/text/snippets.t

@@ -2,7 +2,7 @@
 #
 # Test Pod::Text behavior with various snippets.
 #
-# Copyright 2002, 2004, 2006-2009, 2012, 2018-2020, 2022, 2024
+# Copyright 2002, 2004, 2006-2009, 2012, 2018-2020, 2022, 2024-2025
 #     Russ Allbery <[email protected]>
 #
 # This program is free software; you may redistribute it and/or modify it
@@ -15,7 +15,7 @@ use warnings;
 
 use lib 't/lib';
 
-use Test::More tests => 69;
+use Test::More tests => 71;
 use Test::Podlators qw(test_snippet);
 
 # Load the module.
@@ -25,10 +25,10 @@ BEGIN {
 
 # List of snippets run by this test.
 my @snippets = qw(
-    alt c-with-spaces code cpp empty error-die error-none error-normal
-    error-pod error-stderr error-stderr-opt for guesswork-quoting
-    guesswork-no-quoting late-encoding link-rt link-url margin naive
-    name-quotes name-quotes-none non-latin nonbreaking-space
+    alt c-with-spaces c-with-newline code cpp empty error-die error-none
+    error-normal error-pod error-stderr error-stderr-opt for
+    guesswork-quoting guesswork-no-quoting late-encoding link-rt link-url
+    margin naive name-quotes name-quotes-none non-latin nonbreaking-space
     nonbreaking-space-l nonbreaking-wrap nourls periods quotes-opt
     s-whitespace sentence-spacing utf8 verbatim
 );