12c12
< our $VERSION = '1.157';
---
> our $VERSION = '1.156';
47d46
<     return if _is_key_in_make_path($elem);
114,126d112
< sub _is_key_in_make_path {
<     my ($elem) = @_;
<     my $previous_token =
<         _previous_token_that_is_a_key($elem);
<     return if not $previous_token and $previous_token ne 'mode';
< 
<     $previous_token = _previous_token_that_is_a_function($elem);
<     print qq(LLL "),$previous_token->content(),qq("\n);
<     
<     state $is_make_path = { hashify( 'make_path', 'File::Path::make_path' ) };
<     return $is_make_path->{$previous_token->content()};
< }
< 
222,263d207
<     return $previous_token;
< }
< 
< sub _previous_token_that_is_a_key {
<     my ($elem) = @_;
< 
<     state $is_not_key = { hashify( $OPENING_BRACE, $CLOSING_BRACE,
< 			           $COMMA, $SPACE, '=>' ),  };
< 
<     my $previous_token = $elem->previous_token();
<     while (
<             $previous_token
<         and 
<                 not $previous_token->significant()
< 	     or $is_not_key->{$previous_token->content()}
<     ) {
<         $previous_token = $previous_token->previous_token();
<     }
<     return $previous_token;
< }
< 
< sub _previous_token_that_is_a_function {
<     my ($elem) = @_;
< 
<     state $is_not_key = { hashify( $LEFT_PAREN, $RIGHT_PAREN,
< 				   $OPENING_BRACE, $CLOSING_BRACE,
< 			           $COMMA, $SPACE, '=>' ),  };
<     state $is_key = { hashify( 'group', 'uid', 'user', 'owner', 'error',
< 			       'verbose', 'chmod', 'mode' ),  };
< 
<     my $previous_token = $elem->previous_token();
<     while (
<             $previous_token
<         and (
< 	    $is_not_key->{$previous_token->content()}
< 	     or $is_key->{$previous_token->content()}
< 	     or $previous_token->content() =~ m/^\$\w+$/
< 	     or $previous_token->content() =~ m/^(\p{Quotation_Mark}).+\1$/
< 	)
<     ) {
<         $previous_token = $previous_token->previous_token();
<     }