From: Steve Hancock <perltidy@users.sourceforge.net>
Date: Mon, 9 Nov 2020 01:56:43 +0000 (-0800)
Subject: minor code cleanups
X-Git-Tag: 20201202~46
X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=a017d7e0abc0715194afe459e5d613641fcb4632;p=perltidy.git

minor code cleanups
---

diff --git a/lib/Perl/Tidy/Formatter.pm b/lib/Perl/Tidy/Formatter.pm
index c29eb371..4cabf5fb 100644
--- a/lib/Perl/Tidy/Formatter.pm
+++ b/lib/Perl/Tidy/Formatter.pm
@@ -5150,10 +5150,13 @@ sub respace_tokens {
 
                 # Examples: <<snippets/space1.in>>
                 # change '$  var'  to '$var' etc
-                if ( substr( $token, 1, 1 ) =~ /^\s$/
-                    && $token =~ /^[\$\&\%\*\@]/ )
+                # change '@    '   to '@'
+                my ( $sigil, $word ) = split /\s+/, $token, 2;
+                if ( length($sigil) == 1
+                    && $sigil =~ /^[\$\&\%\*\@]$/ )
                 {
-                    $token =~ s/\s+//g;
+                    $token = $sigil;
+                    $token .= $word if ($word);
                     $rtoken_vars->[_TOKEN_] = $token;
                 }
 
@@ -8122,7 +8125,7 @@ EOM
 
         ++$max_index_to_go;
         $K_to_go[$max_index_to_go]     = $Ktoken_vars;
-        $types_to_go[$max_index_to_go] = $rtoken_vars->[_TYPE_];
+        $types_to_go[$max_index_to_go] = $type;
 
         $old_breakpoint_to_go[$max_index_to_go]    = 0;
         $forced_breakpoint_to_go[$max_index_to_go] = 0;