From: Steve Hancock <perltidy@users.sourceforge.net>
Date: Thu, 15 Sep 2022 01:32:18 +0000 (-0700)
Subject: avoid reused name
X-Git-Tag: 20220613.05~3
X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=c1732009e1d9c66f8c284d03db96abf4f8ceaea4;p=perltidy.git

avoid reused name
---

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;