From c1732009e1d9c66f8c284d03db96abf4f8ceaea4 Mon Sep 17 00:00:00 2001
From: Steve Hancock <perltidy@users.sourceforge.net>
Date: Wed, 14 Sep 2022 18:32:18 -0700
Subject: [PATCH] avoid reused name

---
 lib/Perl/Tidy/Formatter.pm | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/lib/Perl/Tidy/Formatter.pm b/lib/Perl/Tidy/Formatter.pm
index 453b9cad..9916dd1d 100644
--- a/lib/Perl/Tidy/Formatter.pm
+++ b/lib/Perl/Tidy/Formatter.pm
@@ -5646,8 +5646,8 @@ EOM
         # required.  Also make any other changes, such as adding semicolons.
         # All token changes must be made here so that the token data structure
         # remains fixed for the rest of this iteration.
-        my ( $severe_error, $rqw_lines ) = $self->respace_tokens();
-        if ($severe_error) {
+        my ( $error, $rqw_lines ) = $self->respace_tokens();
+        if ($error) {
             $self->dump_verbatim();
             $self->wrapup();
             return;
-- 
2.39.5