distort-stl: debugging, a bit more

Signed-off-by: Ian Jackson <ijackson@chiark.greenend.org.uk>

diff --git a/distort-stl b/distort-stl
index 8167e3540932a14f62954b1790e229528ba624ec..d893057b135fe601de0d09725dcf1a89d2c19b16 100755 (executable)
--- a/distort-stl
+++ b/distort-stl
@@ -104,6 +104,7 @@ sub maybe_subdivide_triangle ($$$$) {
        printf STDERR "OK nok=%d nchanged=%d\n",
            (scalar @$ok), (scalar @$changed)
            if $debug;
+       print STDERR Dumper(\@$ok) if $debug>=2;
        return;
     }
     my ($dummy,$ix,$jx) = @longest;