--- 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'> ],
                 ],