From: Steve Hancock <perltidy@users.sourceforge.net>
Date: Mon, 21 Sep 2020 22:05:43 +0000 (-0700)
Subject: if =cut starts a POD section give warning, not complaint
X-Git-Tag: 20201001~21
X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=85a9a404a9e1f1d1e14fd9914d8b29db2945003b;p=perltidy.git

if =cut starts a POD section give warning, not complaint
---

diff --git a/lib/Perl/Tidy/Tokenizer.pm b/lib/Perl/Tidy/Tokenizer.pm
index a55970f7..4f82e315 100644
--- a/lib/Perl/Tidy/Tokenizer.pm
+++ b/lib/Perl/Tidy/Tokenizer.pm
@@ -917,7 +917,7 @@ sub get_line {
             }
             else {
                 $line_of_tokens->{_line_type} = 'POD_START';
-                complain(
+                warning(
 "=cut starts a pod section .. this can fool pod utilities.\n"
                 );
                 write_logfile_entry("Entering POD section\n");