devel/mktodo.pl: Stop using a known bad API element

[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 a407de5..82982a2 100644 (file)
--- a/dist/Devel-PPPort/devel/mktodo.pl
+++ b/dist/Devel-PPPort/devel/mktodo.pl
@@ -326,6 +326,7 @@ if ($opt{check}) {
     }
     else { # Revert to this symbol is bad in this version
       $todo{$sym} = $cur;
+      write_todo($todo_file, $todo_version, \%todo);
     }
   }
 } # End of checking our work