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 a55970f75831c9b7c0c08828041c3a3d6b8dfc9d..4f82e3156f3ac5a008e6c567351c04dafaa56825 100644 (file)
--- 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");