When starting HTML generation, remove any pre-existing link file.

This commit is contained in:
John Fieber 1996-10-01 16:23:39 +00:00
parent 9ac501e21b
commit d0d723ef05

View File

@ -1,6 +1,6 @@
#!/usr/bin/perl
# $Id: sgmlfmt.pl,v 1.14 1996/09/29 18:27:12 jfieber Exp $
# $Id: sgmlfmt.pl,v 1.15 1996/09/29 19:42:51 jfieber Exp $
# Copyright (C) 1996
# John R. Fieber. All rights reserved.
@ -231,8 +231,11 @@ $filecount = 0; # file counter
sub gen_html {
local($i, $sl);
$tmpfile = "/tmp/sgmlf.$$";
# Remove any lingering link file
unlink("${fileroot}.ln");
$tmpfile = "/tmp/sgmlf.$$";
@cleanfiles = (@cleanfiles, "$tmpfile", "${fileroot}.html",
"${fileroot}_toc.html", "${fileroot}.ln");
open(bar, ">$tmpfile");