fix test when B::C not installed

diff --git a/t/RT96893_perlcc.t b/t/RT96893_perlcc.t
index b875ed4..4e137fa 100644 (file)
--- a/t/RT96893_perlcc.t
+++ b/t/RT96893_perlcc.t
@@ -10,7 +10,7 @@ if ($@) {
 }
 
 my $f = "t/rt96893x.pl";
-open my $fh, ">", $f; END { unlink $f }
+open my $fh, ">", $f; END { unlink $f if $f }
 print $fh 'use Sub::Name; subname("main::bar", sub{42}); print "ok 1\n";';
 close $fh;