diff --git a/t/ValuesAndExpressions/ProhibitCommaSeparatedStatements.run b/t/ValuesAndExpressions/ProhibitCommaSeparatedStatements.run index 0d6513ace..72d236c42 100644 --- a/t/ValuesAndExpressions/ProhibitCommaSeparatedStatements.run +++ b/t/ValuesAndExpressions/ProhibitCommaSeparatedStatements.run @@ -291,6 +291,14 @@ sub new { return bless { foo => 1, bar => 2 }, __PACKAGE__; } +#----------------------------------------------------------------------------- + +## name Hashref seen as block (GH #192) +## failures 0 +## cut + +my $o = shift || {'file' => 1, 'exec' => 1}; + #----------------------------------------------------------------------------- # Local Variables: # mode: cperl