X-Git-Url: https://git.exim.org/exim.git/blobdiff_plain/abe1010cc7d7d02629e1c9ca4a00240a44fe041e..600dc06981df5a906125f8442c36056a117412d4:/test/aux-fixed/dkim/sign.pl

diff --git a/test/aux-fixed/dkim/sign.pl b/test/aux-fixed/dkim/sign.pl
index 6220015ae..a08f38f56 100644
--- a/test/aux-fixed/dkim/sign.pl
+++ b/test/aux-fixed/dkim/sign.pl
@@ -6,16 +6,18 @@ use Getopt::Long;
 my $method = "simple/simple";
 my $selector = "sel";
 my $keyfile = "aux-fixed/dkim/dkim.private";
+my $algorithm = "rsa-sha1";
 
 GetOptions(
 	"method=s" => \$method,
 	"selector=s" => \$selector,
 	"keyfile=s" => \$keyfile,
+	"algorithm=s" => \$algorithm,
 );
 
 # create a signer object
 my $dkim = Mail::DKIM::Signer->new(
-                  Algorithm => "rsa-sha1",
+                  Algorithm => $algorithm,
                   Method => $method,
                   Domain => "test.ex",
                   Selector => $selector,