Beefy Boxes and Bandwidth Generously Provided by pair Networks
No such thing as a small change

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

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 making s'mores by the fire in the courtyard of the Monastery: (3)
As of 2018-11-14 00:27 GMT
Find Nodes?
    Voting Booth?
    My code is most likely broken because:

    Results (159 votes). Check out past polls.