In perl.git, the branch blead has been updated <http://perl5.git.perl.org/perl.git/commitdiff/114d6fd391232a6b97cfbef2db0e4f17302ee557?hp=cfef31b27d1a56cda74e23698243f3be70bd9cb3>
- Log ----------------------------------------------------------------- commit 114d6fd391232a6b97cfbef2db0e4f17302ee557 Author: Nicholas Clark <[email protected]> Date: Thu Jul 22 09:44:27 2010 +0100 In Carp, if @DB::args still contains our sentinel, reset it. This ensures that nothing outside our routine can unintentionally get the address of our sentinel. ----------------------------------------------------------------------- Summary of changes: lib/Carp.pm | 1 + 1 files changed, 1 insertions(+), 0 deletions(-) diff --git a/lib/Carp.pm b/lib/Carp.pm index 31e57d3..0e9105a 100644 --- a/lib/Carp.pm +++ b/lib/Carp.pm @@ -83,6 +83,7 @@ sub caller_info { if ($call_info{has_args}) { my @args; if (@DB::args == 1 && ref $DB::args[0] eq ref \$i && $DB::args[0] == \$i) { + @DB::args = (); # Don't let anyone see the address of $i local $@; my $where = eval { my $gv = B::svref_2object(\&CORE::GLOBAL::caller)->GV; -- Perl5 Master Repository
