This repository was archived by the owner on Dec 11, 2024. It is now read-only.
This repository was archived by the owner on Dec 11, 2024. It is now read-only.
Cleanse B::HV::save of B::C #24
Open
Description
commit bc45f606db184ac124304ff71a6e79e17915d972
Author: Todd Rinaldo toddr@cpan.org
Date: Fri Oct 23 19:25:03 2015 -0500
Don't save the HV if it's a B::C space
diff --git a/lib/B/C/OverLoad/B/HV.pm b/lib/B/C/OverLoad/B/HV.pm
index 3ec792b..e11ac94 100644
--- a/lib/B/C/OverLoad/B/HV.pm
+++ b/lib/B/C/OverLoad/B/HV.pm
@@ -40,6 +40,7 @@ sub save {
my $magic;
if ($name) {
+ return if ( $name =~ /^B::C($|::)/ );
# It's a stash. See issue 79 + test 46
debug(