From: Tony Cook <tony@develop=help.com>
Date: Sat, 30 Mar 2002 22:49:22 +0000 (+0000)
Subject: disable the alarm after the test
X-Git-Tag: Imager-0.48^2~408
X-Git-Url: http://git.imager.perl.org/imager.git/commitdiff_plain/13b8afa038e95d5751a619d296354b974f659ffc

disable the alarm after the test
---

diff --git a/t/t20fill.t b/t/t20fill.t
index 45ac7665..025f3453 100644
--- 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 ($$$) {