X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=scripts%2Fhtml-control;h=f3901df16058c85a5cfaffc89f4d056712dd6fcd;hb=64d0fa452631c6e228fad18f8ae469582e3734b3;hp=5dd8e0dcec218400179511be42a60799833b10bf;hpb=90b39e8c4b91cb1e21df851d136085a1237243b8;p=debbugs.git

diff --git a/scripts/html-control b/scripts/html-control
index 5dd8e0d..f3901df 100755
--- a/scripts/html-control
+++ b/scripts/html-control
@@ -17,11 +17,11 @@ chdir("$gSpoolDir") || die "chdir spool: $!\n";
 
 &filelock("html.fcntl-lock");
 
-unlink("html-data.gz") || $!==&ENOENT or &quit("remove html-data.gz: $!");
+unlink("html-data.gz") || $!==&ENOENT or die "remove html-data.gz: $!";
 
 sub nonawful ($) {
     rename("stamp.html.run","stamp.html") or warn "warning: put back stamp.html: $!";
-    &quit($_[0]);
+    die $_[0];
 }
 
 if (open(US,'updateseqs') && -f 'stamp.html') {
@@ -31,20 +31,20 @@ if (open(US,'updateseqs') && -f 'stamp.html') {
 
     $lastsub++;
     $args= "-diff -stampfile=stamp.html.run";
-    rename("stamp.html","stamp.html.run") or &quit("rename stamp.html: $!");
+    rename("stamp.html","stamp.html.run") or die "rename stamp.html: $!";
 } else {
     $lastsub=0;
     $lastmain = strftime "%Y%m%d%H%M%S", localtime;
     $args= '-full';
-    unlink('stamp.html') || $!==&ENOENT or &quit("excise stale stamp.html: $!");
+    unlink('stamp.html') || $!==&ENOENT or die "excise stale stamp.html: $!";
 }
 
-open(X,">stamp.html.new") or &quit("stamp.html.new: $!");
-close(X) or &quit("close stamp.html.new: $!");
+open(X,">stamp.html.new") or die "stamp.html.new: $!";
+close(X) or die "close stamp.html.new: $!";
 
-open(US,'>updateseqs.new') || &quit("create updateseqs.new: $!");
-print(US "$lastmain\n$lastsub\n") || &quit("write updateseqs.new: $!");
-close(US) || &quit("close updateseqs.new: $!");
+open(US,'>updateseqs.new') || die "create updateseqs.new: $!";
+print(US "$lastmain\n$lastsub\n") || die "write updateseqs.new: $!";
+close(US) || die "close updateseqs.new: $!";
 rename('updateseqs.new','updateseqs') or nonawful("install updateseqs: $!");
 
 sub runshell ($&) {
@@ -88,7 +88,7 @@ runshell("$lib_path/html-install $gWebDir/db <html-data 2>&1",sub { &quit; });
 #runshell('2>&1 '.join(' ',('/usr/lib/sendmail','-f'."$gMaintainerEmail")).' -oem -oi -t <html-data.mail',
 #         sub { &quit; });
 
-rename("stamp.html.new","stamp.html") or &quit("install new stamp.html: $!");
+rename("stamp.html.new","stamp.html") or die "install new stamp.html: $!";
 
 unlink("html-data") or warn "remove html-data: $!";
 #unlink("html-data.gz") or warn "remove html-data.gz: $!";