note
tobyink
<p>You could try adding the following right at the top of your script. (Even add it before <c>use strict</c> - before everything else except perhaps the <c>#!</c> line.)</p>
<c>
BEGIN {
package Tie::Env::Warn;
use Carp qw(cluck);
use Tie::Hash;
our @ISA = 'Tie::StdHash';
sub STORE {
my ($self, $key, $value) = @_;
cluck "Modification of \$ENV{$key}!";
$self->SUPER::STORE($key, $value);
}
tie %ENV, __PACKAGE__;
};
</c>
<p>That will print out a warning including a stack trace (which shows line numbers, etc) whenever <c>%ENV</c> values are assigned. If that doesn't help, then you could also try hooking the <c>DELETE</c> and <c>CLEAR</c> methods (the example above just hooks <c>STORE</c>).</p>
<!-- Node text goes above. Div tags should contain sig only -->
<div class="pmsig"><div class="pmsig-757127">
<small><small>
<tt>perl -E'sub Monkey::do{say$_,for@_,do{($monkey=[caller(0)]->[3])=~s{::}{ }and$monkey}}"Monkey say"->Monkey::do'
</tt></small></small>
</div></div>
1007509
1007509