X-Git-Url: https://git.distorted.org.uk/u/mdw/catacomb/blobdiff_plain/fe6657c961b01ec72e9f35f4c3d96b11b31cf09c..45c0fd363937c6e9b05da04a9167e9912c05ca0c:/pcheck.pl

diff --git a/pcheck.pl b/pcheck.pl
index 354b0f6..3b1447a 100644
--- 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
     }
   }