From: Steve Hancock <perltidy@users.sourceforge.net>
Date: Thu, 6 Dec 2018 06:15:30 +0000 (-0800)
Subject: fixed error in variable name
X-Git-Tag: 20190601~45
X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=dffc6b060fe777a46a14bbd564c878a37f7ec672;p=perltidy.git

fixed error in variable name
---

diff --git a/lib/Perl/Tidy/Formatter.pm b/lib/Perl/Tidy/Formatter.pm
index 803e1802..ecda7046 100644
--- 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'} );