This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
https://perl5.git.perl.org / perl5.git / commit
? search:
summary | shortlog | log | commit | commitdiff | tree
(parent: 261c990) | patch
When assigning to $^P, don't zero $DB::single, $DB::trace and $DB::signal.
authorNicholas Clark <nick@ccl4.org>
Sat, 29 May 2010 15:23:53 +0000 (16:23 +0100)
committerNicholas Clark <nick@ccl4.org>
Sat, 29 May 2010 15:23:53 +0000 (16:23 +0100)
commit4c0f30d62c000e3bbbd4f45eb9fd4bd4b4015cf9
tree50f52f138ed4b46ec2fb525fc88ffe7818da188btree | snapshot
parent261c990ef860580c9092985d3f4629073a671b2fcommit | diff
When assigning to $^P, don't zero $DB::single, $DB::trace and $DB::signal.

Previously, whenever a true value was assigned to $^P, all 3 were set to 0.
Now only set them to 0 if they aren't already SvIOK().

Resolves RT #72422.
perl.c diff | blob | blame | history
t/op/magic.t diff | blob | blame | history
Unnamed repository; edit this file 'description' to name the repository.