avoid reused name

diff --git a/lib/Perl/Tidy/Formatter.pm b/lib/Perl/Tidy/Formatter.pm
index 453b9cadc918bcf0dad002cd44f8e53c74d28b64..9916dd1dd6549d2a5b5c79b65f1849a5cabbe508 100644 (file)
--- 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;