perl - Perl::Critic: -w を使用すると、警告の前のコードが有効になります

Question

シバンで指定したCode before warnings are enabledにもかかわらず、私はperl::criticから取得しています-w

#!/usr/bin/perl -w

私は本当にすべてのインスタンスを通過して置き換える必要はありません。何か私にできることはありますか。さらに、perl::critic で、すべての perl で警告が有効になっていることを確認したいと思います。

Answer 1

あなたはperlcritic、あなたが望むことをしないと言いますが、あなたが望むことをしてほしいと言っています。そのため、 modify perlcritic、より具体的にはPerl:: Critic:: Policy:: TestingAndDebugging:: RequireUseWarningsが必要になります。シバン解析の欠如はドキュメントにバグとして記載されているため、変更を受け入れることに問題はないはずです。

---

ファイルを編集する方が簡単かもしれません。機械的にこれを行うのは非常に簡単です。すでに使用していると仮定するとuse strict;、

find -type f \( -name '*.pl' -o -name '*.pm' \) ! -name '*~' -exec \
   perl -i~ -0777pe's/^(\s*)use strict\b.*\n\K/${1}use warnings;\n/mg' {} +