diff options
Diffstat (limited to 't/901-secure-mail-loop.t')
| -rw-r--r-- | t/901-secure-mail-loop.t | 20 |
1 files changed, 10 insertions, 10 deletions
diff --git a/t/901-secure-mail-loop.t b/t/901-secure-mail-loop.t index 5f6230a7d..2959626fa 100644 --- a/t/901-secure-mail-loop.t +++ b/t/901-secure-mail-loop.t @@ -15,20 +15,20 @@ use Crypt::OpenPGP; 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); - my $encrypted = $pgp->encrypt( - Data => "hello, world", - Recipients => "@", - Cipher => 'CAST5', - Armour => 0 - ); - alarm(0); + local $SIG{ALRM} = sub { fail("stuck in a loop"); exit; }; + alarm(120); + my $encrypted = $pgp->encrypt( + Data => "hello, world", + Recipients => "@", + Cipher => 'CAST5', + Armour => 0 + ); + alarm(0); } pass("didn't get stuck in a loop"); sub PUBLIC_KEY { - return <<'KEY'; + return <<'KEY'; -----BEGIN PGP PUBLIC KEY BLOCK----- Version: GnuPG v1.4.9 (GNU/Linux) |