Beefy Boxes and Bandwidth Generously Provided by pair Networks
Just another Perl shrine

Detecting global $_ usage

by bikeNomad (Priest)
on Jul 13, 2001 at 19:00 UTC ( #96425=note: print w/ replies, xml ) Need Help??

in reply to When is $_ local and when is it not?

There's a charming example in the Perl Cookbook that ties global $_ so you get diagnostics when $_ is used globally (modified to be able to carp instead of croak if you want):

# croak on global underscore usage: # no Underscore; # carp on global underscore usage: # no Underscore 'carp'; package Underscore; use Carp (); my $complain = \&Carp::croak; sub TIESCALAR { bless \(my $dummy) => shift } sub FETCH { $complain->("read access to \$_ forbidden") } sub STORE { $complain->("write access to \$_ forbidden") } sub unimport { tie($_, __PACKAGE__); $complain = \&Carp::carp if $_[1] eq 'carp'; } sub import { untie $_ } tie($_, __PACKAGE__) unless tied $_; 1;
And you save it as and use it by just adding a no Underscore; or no Underscore 'croak'; . Or you can do it at the command line, of course, using perl -M-Underscore or perl -M-Underscore=carp

Comment on Detecting global $_ usage
Select or Download Code

Log In?

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://96425]
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others chanting in the Monastery: (6)
As of 2014-09-21 19:06 GMT
Find Nodes?
    Voting Booth?

    How do you remember the number of days in each month?

    Results (175 votes), past polls