Re5 (-l): I don't use printf enough

[dragonchild]

in reply to Re: Re: Re2 (-l): I don't use printf enough
in thread I don't use printf enough

Going down that road means that eventually somebody is going to argue that every single subroutine should localize all the global variables because of similar reasons.

Personally, I think there should be a switch, similar to strict, that will do this for you within a scope. Most modules shouldn't be depending on the globals anyway. It just causes craziness. Is there a use localize_globals; or some such? Ideally, one would add a use line at the top of the module and that would be it. Could this work? (Untested)

package Filter::LocalizeGlobals;

use Filter::Simple;

# Add things to be localized here.
my $locals = 'local (' . join ',', qw(
    $_ $\ $/
);

FILTER_ONLY
    code => sub {
        s/(\bsub\b\s*\w+{)/$1 $locals /g;
    };

1;