This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
devel/mktodo.pl: Stop using a known bad API element
[perl5.git] / dist / Devel-PPPort / devel / mktodo.pl
index a407de5..82982a2 100644 (file)
@@ -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