skip_backref_sv for EXPORT_FAIL

atoomic · atoomic · commit 5fe9e321fd99 · 2023-01-05T20:38:25.000-05:00
We should not try to save Exporter::EXPORT_FAIL

Refs: CPANEL-42007
diff --git a/lib/B/C/OverLoad/B/AV.pm b/lib/B/C/OverLoad/B/AV.pm
@@ -65,6 +65,9 @@ sub skip_backref_sv ($sv) {
     return 1 if $name =~ m/::(?:bootstrap)$/;
     return 1 unless key_was_in_starting_stash($name);
 
+    # do not save backref for EXPORT_FAIL
+    return 1 if $name =~ m/::(?:EXPORT_FAIL)$/;
+
     return;
 }
 

Original file line number	Diff line number	Diff line change
`@@ -65,6 +65,9 @@ sub skip_backref_sv ($sv) {`
`65`	`65`	`return 1 if $name =~ m/::(?:bootstrap)$/;`
`66`	`66`	`return 1 unless key_was_in_starting_stash($name);`
`67`	`67`
	`68`	`+ # do not save backref for EXPORT_FAIL`
	`69`	`+ return 1 if $name =~ m/::(?:EXPORT_FAIL)$/;`
	`70`	`+`
`68`	`71`	`return;`
`69`	`72`	`}`
`70`	`73`