minor coding cleanup

diff --git a/lib/Perl/Tidy/Tokenizer.pm b/lib/Perl/Tidy/Tokenizer.pm
index d1b63a106e022c5430b02071496d3b8cdde60ae9..d329620ff146e6a7c5a9301763d1189917a6c47e 100644 (file)
--- a/lib/Perl/Tidy/Tokenizer.pm
+++ b/lib/Perl/Tidy/Tokenizer.pm
@@ -367,7 +367,7 @@ sub get_saw_brace_error {
 }
 
 sub get_unexpected_error_count {
-    my ($self) = shift;
+    my ($self) = @_;
     return $self->{_unexpected_error_count};
 }