--- toast 2003/12/11 05:16:53 1.268 +++ toast 2003/12/13 02:36:56 1.269 @@ -2968,9 +2968,11 @@ } } -sub postarm() +sub rebuildinfodir() { my($dir) = path(armdir, "info"); + return true unless -d($dir); + my($dirfile) = path($dir, "dir"); # remove old links left by previous version of toast: @@ -2998,8 +3000,13 @@ } $dir; mv($tmpfile, $dirfile) if -e($tmpfile); } +} +sub postarm() +{ + rebuildinfodir; run(postarmprog) if postarmprog; + return true; } sub arm(@)