- warn "# SECURITY ", hex_tag($tag), " AFI: ", as_hex($afi);
- } elsif ( $rest = _matched $data => '0A 06' ) {
- die "ERROR writing AFI to $tag ", as_hex($data);
+ warn "# SECURITY ", hex_tag($tag), " AFI: $afi";
+ } elsif ( $rest = _matched $data => '09 06' ) {
+ if ( $retry++ <= $afi_retry ) {
+# warn "ERROR writing AFI $afi to $tag retry $retry\n";
+ goto retry;
+ }
+ die "ERROR writing AFI $afi to $tag ", as_hex($data);