tiger-mktab.c: Don't have printf swallow a kludge64 whole.

[u/mdw/catacomb] / pcheck.pl

diff --git a/pcheck.pl b/pcheck.pl
index 354b0f6..3b1447a 100644 (file)
--- a/pcheck.pl
+++ b/pcheck.pl
@@ -28,15 +28,15 @@ EOF
     for (;;) {
       $_ = <>; @F = split; $F[0] eq "#:factor" or last; $f = $F[1];
       print <<EOF;
-        f = $f;
-        if (!ptest(f)) print "  factor not prime", f;
-        ff *= f;
+       f = $f;
+       if (!ptest(f)) print "  factor not prime", f;
+       ff *= f;
 EOF
       $ll = 1;
     }
     if ($ll) {
       print <<EOF;
-        if (ff != p - 1) print "  missing factors";
+       if (ff != p - 1) print "  missing factors";
 EOF
     }
   }