fixed error in variable name

diff --git a/lib/Perl/Tidy/Formatter.pm b/lib/Perl/Tidy/Formatter.pm
index 803e180219e98480c88b217d73e56c5cd910683d..ecda7046e6106643098c4b1cb4b6cf6733cd9760 100644 (file)
--- a/lib/Perl/Tidy/Formatter.pm
+++ b/lib/Perl/Tidy/Formatter.pm
@@ -5848,8 +5848,8 @@ sub make_keyword_group_list_pattern {
     # turn any input list into a regex for recognizing selected block types.
     # Here are the defaults:
     $keyword_group_list_pattern = '^((our|local|my|use|require|)$|sub)';
-    if ( defined( $rOpts->{'keyword-group-list'} )
-        && $rOpts->{'keyword-group-list'} )
+    if ( defined( $rOpts->{'keyword-group-blanks-list'} )
+        && $rOpts->{'keyword-group-blanks-list'} )
     {
         $keyword_group_list_pattern =
           make_block_pattern( '-kgbl', $rOpts->{'keyword-group-list'} );