devel/mktodo.pl: Explicitly close file

[perl5.git] / dist / Devel-PPPort / devel / mktodo.pl

diff --git a/dist/Devel-PPPort/devel/mktodo.pl b/dist/Devel-PPPort/devel/mktodo.pl
index 15b69f1..9fc49ec 100644 (file)
--- a/dist/Devel-PPPort/devel/mktodo.pl
+++ b/dist/Devel-PPPort/devel/mktodo.pl
@@ -428,6 +428,8 @@ sub write_todo  # Write out the todo file.  The keys of %sym are known to not
   for (sort dictionary_order keys %$sym) {
     $f->print(sprintf "%-30s # %s\n", $_, $sym->{$_});
   }
+
+  $f->close;
 }
 
 sub find_undefined_symbols