From 0d239381af189fe14fd33f8183f3fdf711d315ce Mon Sep 17 00:00:00 2001
From: "Jose D. Gomez R" <1josegomezr@gmail.com>
Date: Mon, 13 Nov 2023 14:57:39 +0100
Subject: [PATCH] Update lib/perlcritic/Perl/Critic/Policy/HashKeyQuotes.pm

Co-authored-by: Martchus <martchus@gmx.net>
---
 lib/perlcritic/Perl/Critic/Policy/HashKeyQuotes.pm | 3 +--
 1 file changed, 1 insertion(+), 2 deletions(-)

diff --git a/lib/perlcritic/Perl/Critic/Policy/HashKeyQuotes.pm b/lib/perlcritic/Perl/Critic/Policy/HashKeyQuotes.pm
index 309e72e..29fe0e4 100644
--- a/lib/perlcritic/Perl/Critic/Policy/HashKeyQuotes.pm
+++ b/lib/perlcritic/Perl/Critic/Policy/HashKeyQuotes.pm
@@ -17,8 +17,7 @@ sub applies_to { return qw(PPI::Token::Quote::Single PPI::Token::Quote::Double)
 
 # check that hashes are not overly using quotes
 # (os-autoinst coding style)
-sub violates {
-    my ($self, $elem) = @_;
+sub violates ($elem) {
 
     #we only want the check hash keys
     return if !is_hash_key($elem);