23 lines
833 B
Diff
23 lines
833 B
Diff
--- 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 {
|
|
[
|
|
q/foo( { bar() }, {}, 'blah' )/
|
|
=> [
|
|
- ' { bar() }',
|
|
+ [ '{ bar() }' ],
|
|
[ qw< {} > ],
|
|
[ q<'blah'> ],
|
|
],
|