disable the alarm after the test

diff --git a/t/t20fill.t b/t/t20fill.t
index 45ac7665719440bc6508ff3de00516f0a3ee5b5a..025f3453f131b03176ab6a72dfc73dff3dc5f93a 100644 (file)
--- a/t/t20fill.t
+++ b/t/t20fill.t
@@ -252,8 +252,9 @@ ok($testnum++,
                   fill=>{ fountain=>'linear', xa=>20, ya=>20, xb=>80, 
                           yb=>20 }), "linear box fill");
     ++$testnum;
+    alarm 0;
   };
-  $@ and ok($testnum++, 0, "linear box fill alarmed");
+  $@ and ok($testnum++, 0, "linear box fill $@");
 }
 
 sub ok ($$$) {