Fix precedence issue with PAD check in AV.pm

Todd Rinaldo · Todd Rinaldo · commit 2d721de03247 · 2025-09-11T06:54:04.000Z
diff --git a/lib/B/C/OverLoad/B/AV.pm b/lib/B/C/OverLoad/B/AV.pm
@@ -72,7 +72,7 @@ sub skip_backref_sv ($sv) {
 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)$/ ) {
+    unless ( ref($av) =~ /^B::PAD(?:LIST|NAMELIST)$/ ) {
         $av->FLAGS & 2048 and die sprintf( "In B::AV, unexpected SVf_ROK found in %s\n", ref $av );
     }
     $fullname ||= '';

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