lei q: fix arbitrary --mua command handling

Perl doesn't seem to warn for shadowed variables, here :x

diff --git a/lib/PublicInbox/LEI.pm b/lib/PublicInbox/LEI.pm
index 31e6b4a8e407a01a7fb56379b480fe3078c216d8..dce8076282d1c62bcd6d182713231c0bc3852b3b 100644 (file)
--- a/lib/PublicInbox/LEI.pm
+++ b/lib/PublicInbox/LEI.pm
@@ -731,7 +731,7 @@ sub start_mua {
        # TODO: help wanted: other common FOSS MUAs
        } else {
                require Text::ParseWords;
        # TODO: help wanted: other common FOSS MUAs
        } else {
                require Text::ParseWords;

-               my @cmd = Text::ParseWords::shellwords($mua);
+               @cmd = Text::ParseWords::shellwords($mua);

                # mutt uses '%f' for open-hook with compressed mbox, we follow
                @cmd = map { $_ eq '%f' ? ($replaced = $mfolder) : $_ } @cmd;
        }
                # mutt uses '%f' for open-hook with compressed mbox, we follow
                @cmd = map { $_ eq '%f' ? ($replaced = $mfolder) : $_ } @cmd;
        }