Login
RT #79289: False Postive in Perl::Critic::Utils::is_in_void_context()
[gknop/Perl-Critic.git] / t / BuiltinFunctions / ProhibitVoidGrep.run
index ff86e61..840cc2d 100644 (file)
@@ -48,6 +48,19 @@ grep { spam($_) }
 
 #-----------------------------------------------------------------------------
 
+## name Subscript grep (RT #79289)
+## failures 0
+## cut
+
+my %hash;
+
+delete @hash{ grep { m/ foo /smx } keys %hash };
+delete @hash{ grep m/ foo /smx, keys %hash };
+# The following is the form that was actually failing.
+delete @hash{ grep ( m/ foo /smx, keys %hash ) };
+
+#-----------------------------------------------------------------------------
+
 ##############################################################################
 #      $URL$
 #     $Date$