Added die() statement to temp file unlink in _read_file()

stevieb9 · Nov 25, 2020 · afc2231 · afc2231
1 parent 88ab31a
commit afc2231
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/lib/Devel/Examine/Subs.pm b/lib/Devel/Examine/Subs.pm
@@ -786,7 +786,7 @@ sub _read_file {
         $ppi_doc = PPI::Document->new($tempfile_name);
 
         close $self->tempfile;
-        unlink $self->tempfile()->filename;
+        unlink $tempfile_name or die "Can't delete temp file $tempfile_name: $!";
     }
     else {
         $ppi_doc = PPI::Document->new($file);