From 8ec8da0491ad89604700b3e29a227966f6d84ba1 Mon Sep 17 00:00:00 2001 From: Perl Tidy Date: Wed, 5 Dec 2018 15:38:52 -0500 Subject: no bug - reformat all the code using the new perltidy rules --- t/901-secure-mail-loop.t | 20 ++++++++++---------- 1 file changed, 10 insertions(+), 10 deletions(-) (limited to 't/901-secure-mail-loop.t') 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) -- cgit v1.2.3-24-g4f1b