make t/901-secure-mail-loop.t fail faster

diff --git a/t/901-secure-mail-loop.t b/t/901-secure-mail-loop.t
index 2959626fa56e45407a90f6d9ec36155ec358db36..55cc1ad77564b2c54612f5cb1e34e8aa0b1f321b 100644 (file)
--- a/t/901-secure-mail-loop.t
+++ b/t/901-secure-mail-loop.t
@@ -16,7 +16,7 @@ my $pubring = new Crypt::OpenPGP::KeyRing(Data => PUBLIC_KEY());
 my $pgp = new Crypt::OpenPGP(PubRing => $pubring);
 {
   local $SIG{ALRM} = sub { fail("stuck in a loop"); exit; };
-  alarm(120);
+  alarm(10);
   my $encrypted = $pgp->encrypt(
     Data       => "hello, world",
     Recipients => "@",