X-Git-Url: https://git.distorted.org.uk/u/mdw/catacomb/blobdiff_plain/34e4f738bcba58e6d8c4cabbb0b3232a65b42a9d..95ccefe3ce59a0773f915aca6948d5b6f1f7c882:/pcheck.pl?ds=sidebyside

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
     }
   }