Testsuite: revert some of the modernish Perl constructs

[exim.git] / test / aux-fixed / dkim / sign.pl

diff --git a/test/aux-fixed/dkim/sign.pl b/test/aux-fixed/dkim/sign.pl
index 6220015aec08b916087c28f99a5fea60b71adb89..a08f38f5628db73633fe36512c086c72a89089b8 100644 (file)
--- 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 $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,
 
 GetOptions(
        "method=s" => \$method,
        "selector=s" => \$selector,
        "keyfile=s" => \$keyfile,

+       "algorithm=s" => \$algorithm,

 );
 
 # create a signer object
 my $dkim = Mail::DKIM::Signer->new(
 );
 
 # create a signer object
 my $dkim = Mail::DKIM::Signer->new(

-                  Algorithm => "rsa-sha1",
+                  Algorithm => $algorithm,

                   Method => $method,
                   Domain => "test.ex",
                   Selector => $selector,
                   Method => $method,
                   Domain => "test.ex",
                   Selector => $selector,