diff options
| author | Přemysl Janouch <p.janouch@gmail.com> | 2017-05-17 15:19:11 +0200 |
|---|---|---|
| committer | Přemysl Janouch <p.janouch@gmail.com> | 2017-06-07 06:37:07 +0200 |
| commit | 92c81596c8a173fe0e4275adb5e01e8264641f46 (patch) | |
| tree | 06adfbc910763092ba183c09aa178544d8ca3552 | |
| parent | 75d5b62473397c3ea917d26db5c46d48306a1b5f (diff) | |
| download | acme-tinier-92c81596c8a173fe0e4275adb5e01e8264641f46.tar.gz acme-tinier-92c81596c8a173fe0e4275adb5e01e8264641f46.tar.xz acme-tinier-92c81596c8a173fe0e4275adb5e01e8264641f46.zip | |
Don't use $_ unnecessarily
| -rwxr-xr-x | acme-tinier.pl | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/acme-tinier.pl b/acme-tinier.pl index c34cce3..96424fa 100755 --- a/acme-tinier.pl +++ b/acme-tinier.pl @@ -21,11 +21,11 @@ my $acme_dir = $ENV{ACME_DIR} || die 'ACME_DIR not set'; # Prepare some values derived from account key for the ACME protocol sub b64 { encode_base64url(shift, '') =~ s/=//gr } -$_ = `openssl rsa -in '$account_key' -noout -text`; +my $key_info = `openssl rsa -in '$account_key' -noout -text`; die 'cannot process account key' if $?; my ($pub_hex, $pub_exp) = - /modulus:\n\s+00:([a-f\d:\s]+?)\npublicExponent: (\d+)/m; + $key_info =~ /modulus:\n\s+00:([a-f\d:\s]+?)\npublicExponent: (\d+)/m; $pub_exp = sprintf("%x", $pub_exp); $pub_exp = "0$pub_exp" if length($pub_exp) % 2; |