|
|
|
@ -1,3 +1,14 @@
|
|
|
|
|
--- lib/Perl/Critic/Command.pm
|
|
|
|
|
+++ lib/Perl/Critic/Command.pm
|
|
|
|
|
@@ -187,7 +187,7 @@ sub _get_input {
|
|
|
|
|
|
|
|
|
|
# Reading code from STDIN. All the code is slurped into
|
|
|
|
|
# a string. PPI will barf if the string is just whitespace.
|
|
|
|
|
- my $code_string = do { local $RS = undef; <STDIN> };
|
|
|
|
|
+ my $code_string = do { local $RS = undef; <STDIN> }; ## no critic (InputOutput::ProhibitExplicitStdin)
|
|
|
|
|
|
|
|
|
|
# Notice if STDIN was closed (pipe error, etc)
|
|
|
|
|
if ( ! defined $code_string ) {
|
|
|
|
|
--- t/05_utils.t
|
|
|
|
|
+++ t/05_utils.t
|
|
|
|
|
@@ -418,7 +418,7 @@ sub test_parse_arg_list {
|
|
|
|
|