Trailing whitespace cleanup

[autodns.git] / autodns.pl

diff --git a/autodns.pl b/autodns.pl
index fa4e09b6a337cb4005e18f1a2b62d126ad5e3571..ab5859cb22c42bc636b3e54e55b6be59bb86c521 100755 (executable)
--- a/autodns.pl
+++ b/autodns.pl
@@ -252,7 +252,7 @@ if ($entity->parts) {
 } else {
        # Clear text.
 
-       my $pid = open3(\*GPGIN, \*GPGOUT, \*GPGERR, "gpg --batch");
+       my $pid = open3(\*GPGIN, \*GPGOUT, \*GPGERR, "gpg --batch --verify");
 
        # Feed it the mail.
        print GPGIN $entity->bodyhandle->as_string;
@@ -273,7 +273,7 @@ foreach (@GPGERROR) {
        chomp;
        if (/Signature made (.*) using.*ID (.*)$/) {
                $sigtime = str2time($1);
-               $gpguser=$2; 
+               $gpguser=$2;
        } elsif (/error/) {
                $gpggood = 0;
                print REPLY "Some errors ocurred\n";