phash: Tell the user when the graph is OK

Tell the user when the graph is OK, so that we don't get quite so much of
"a list of errors followed by a long pause."

diff --git a/perllib/phash.ph b/perllib/phash.ph
index 38140e5..6033427 100644 (file)
--- a/perllib/phash.ph
+++ b/perllib/phash.ph
@@ -120,8 +120,8 @@ sub gen_hash_n($$$) {
        print STDERR "Graph is cyclic\n";
        return;
     }
-
-    # print STDERR "Graph:\n$gr\n";
+    
+    print STDERR "Graph OK, computing vertices...\n";
 
     # Now we need to assign values to each vertex, so that for each
     # edge, the sum of the values for the two vertices give the value