Help for this page

Select Code to Download


  1. or download this
    my $new_filename = $full_filename;
    $new_filename =~ s/(\.gpg)|(\.encrypted)/\.decrypted/;
  2. or download this
    $error ||= "Unexpected signer '$signer' is not '$expected_sender'."
        unless ($signer =~ m/\Q$expected_sender\E/);
  3. or download this
    $error ||= "Unexpected signer 'GOODSIG 86125876138571635 ClientKey' is
+ not ''."
        unless ('GOODSIG 86125876138571635 ClientKey' =~ m/\Q\E/);