B::SV::save

Author: atoomic

lib/B/C.pm

@@ -4129,15 +4129,6 @@ sub B::IO::save {
     return $sym;
 }
 
-sub B::SV::save {
-    my $sv = shift;
-
-    # This is where we catch an honest-to-goodness Nullsv (which gets
-    # blessed into B::SV explicitly) and any stray erroneous SVs.
-    return 0 unless $$sv;
-    warn sprintf( "cannot save that type of SV: %s (0x%x)\n", class($sv), $$sv );
-}
-
 sub output_all {
     my $init_name = shift;
     my $section;

lib/B/C/Save/SV.pm

@@ -0,0 +1,12 @@
+package SV;
+
+sub save {
+    my $sv = shift;
+
+    # This is where we catch an honest-to-goodness Nullsv (which gets
+    # blessed into B::SV explicitly) and any stray erroneous SVs.
+    return 0 unless $$sv;
+    warn sprintf( "cannot save that type of SV: %s (0x%x)\n", class($sv), $$sv );
+}
+
+1;