This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
[perl #122445] use magic on $DB::single etc to avoid overload issues
authorTony Cook <tony@develop-help.com>
Thu, 2 Oct 2014 05:54:58 +0000 (15:54 +1000)
committerTony Cook <tony@develop-help.com>
Thu, 9 Oct 2014 00:24:50 +0000 (11:24 +1100)
commita6d695237c4c14fa287df157c4907e01d4647641
tree77c7361b0f9c6d75fc7b703d4cc190cb16b906d3
parent2c2d7daa95190ae95ae6486d1734a1167ea05966
[perl #122445] use magic on $DB::single etc to avoid overload issues

This prevents perl recursing infinitely when an overloaded object is
assigned to $DB::single, $DB::trace or $DB::signal

This is done by referencing their values as IVs instead of as SVs in
dbstate, and by adding magic to those variables so that assignments to
the scalars update the PL_DBcontrol array.
16 files changed:
embed.fnc
embed.h
embedvar.h
intrpvar.h
mg.c
mg_names.c
mg_raw.h
mg_vtable.h
perl.c
perl.h
pod/perlguts.pod
pp_ctl.c
proto.h
regen/mg_vtable.pl
sv.c
t/run/switchd.t