Make SVf_ROK clarify what module it was found in

Author: Todd Rinaldo

lib/B/C/OverLoad/B/AV.pm

@@ -73,7 +73,7 @@ sub do_save ( $av, $fullname = undef, $cv = undef, $is_backref = 0 ) {
 
     # Skip FLAGS check for PAD modules that use AV as parent since calling flags for those is meaningless
     unless ( ref($av) =~ /^B::PAD(?:LIST|NAMELIST)$/ ) {
-        $av->FLAGS & 2048 and die sprintf( "Unexpected SVf_ROK found in %s\n", ref $av );
+        $av->FLAGS & 2048 and die sprintf( "In B::AV, unexpected SVf_ROK found in %s\n", ref $av );
     }
     $fullname ||= '';
 

lib/B/C/OverLoad/B/CV.pm

@@ -30,7 +30,7 @@ sub do_save ( $cv, $origname = undef ) {
     # do not save BEGIN and CHECK functions
     return 'NULL' if $fullname =~ qr{::(?:BEGIN|CHECK|UNITCHECK)$};
 
-    $cv->FLAGS & 2048 and die sprintf( "Unexpected SVf_ROK found in %s\n", ref $cv );
+    $cv->FLAGS & 2048 and die sprintf( "In B::CV, unexpected SVf_ROK found in %s\n", ref $cv );
 
     my $is_xs_accessor_constructor = $cv->is_xs_accessor_constructor;
     my ( $xsaccessor_list, $xsaccessor_function, $xsaccessor_key, $xsaccessor_key_len ) = $cv->save_xs_accessor($is_xs_accessor_constructor);

lib/B/C/OverLoad/B/GV.pm

@@ -23,7 +23,7 @@ our @under = ();
 
 sub do_save ( $gv, $name = undef ) {
 
-    $gv->FLAGS & 2048 and die sprintf( "Unexpected SVf_ROK found in %s\n", ref $gv );
+    $gv->FLAGS & 2048 and die sprintf( "In B::GV, unexpected SVf_ROK found in %s\n", ref $gv );
 
     if ( $gv->get_fullname =~ qr{::(?:BEGIN|CHECK|UNITCHECK)$} ) {
 

lib/B/C/OverLoad/B/HV.pm

@@ -85,7 +85,7 @@ sub do_save ( $hv, $fullname = undef ) {
 
     $fullname ||= '';
     my $stash_name = $hv->NAME;
-    $hv->FLAGS & 2048 and die sprintf( "Unexpected SVf_ROK found in %s\n", ref $hv );
+    $hv->FLAGS & 2048 and die sprintf( "In B::HV, unexpected SVf_ROK found in %s\n", ref $hv );
 
     #debug( hv => "XXXX HV fullname %s // name %s", $fullname, $stash_name );
     if ($stash_name) {

lib/B/C/OverLoad/B/IO.pm

@@ -23,7 +23,7 @@ sub save_io_and_data ( $io, $globname, $is_utf8, $data ) {
 
 sub do_save ( $io, $fullname = undef ) {
 
-    $io->FLAGS & 2048 and die sprintf( "Unexpected SVf_ROK found in %s\n", ref $io );
+    $io->FLAGS & 2048 and die sprintf( "In B::IO, unexpected SVf_ROK found in %s\n", ref $io );
     my ( $ix, $sym ) = svsect()->reserve($io);
     svsect()->debug( $fullname, $io );
 

lib/B/C/OverLoad/B/NV.pm

@@ -14,7 +14,7 @@ sub do_save ( $sv, $fullname, $custom = undef ) {
 
     my $svflags = $sv->FLAGS;
     my $refcnt  = $sv->REFCNT;
-    $sv->FLAGS & 2048 and die sprintf( "Unexpected SVf_ROK found in %s\n", ref $sv );
+    $sv->FLAGS & 2048 and die sprintf( "In B::NV, unexpected SVf_ROK found in %s\n", ref $sv );
 
     if ( ref $custom ) {    # used when downgrading a PVIV / PVNV to IV
         $svflags = $custom->{flags}  if defined $custom->{flags};

lib/B/C/OverLoad/B/REGEXP.pm

@@ -11,7 +11,7 @@ use B::C::Save  qw/savecowpv/;
 # post 5.11: When called from B::RV::save not from PMOP::save precomp
 sub do_save ( $sv, $fullname = undef ) {
 
-    $sv->FLAGS & 2048 and die sprintf( "Unexpected SVf_ROK found in %s\n", ref $sv );
+    $sv->FLAGS & 2048 and die sprintf( "In B::REGEXP, unexpected SVf_ROK found in %s\n", ref $sv );
 
     my ( $ix, $sym ) = svsect()->reserve($sv);
     svsect()->debug( $sv->name, $sv );

lib/B/C/OverLoad/B/UV.pm

@@ -10,7 +10,7 @@ use B::C::Decimal qw/u32fmt/;
 
 sub do_save ( $sv, $fullname = undef ) {
 
-    $sv->FLAGS & 2048 and die sprintf( "Unexpected SVf_ROK found in %s\n", ref $sv );
+    $sv->FLAGS & 2048 and die sprintf( "In B::UV, unexpected SVf_ROK found in %s\n", ref $sv );
 
     my ( $ix, $sym ) = svsect()->reserve($sv);
     svsect()->debug( $fullname, $sv );