# HG changeset patch
# User Heiko Schlittermann <hs@schlittermann.de>
# Date 1293722427 -3600
# Node ID a433ae489911d9439ffe348b12eeb751ef95c49d
# Parent  6adcf16d5cd6bb5f6d062a76726799acbd6b4ba4
[perltidy]

diff -r 6adcf16d5cd6 -r a433ae489911 dnssec-keytool.pl
--- a/dnssec-keytool.pl	Thu Dec 30 15:40:19 2010 +0100
+++ b/dnssec-keytool.pl	Thu Dec 30 16:20:27 2010 +0100
@@ -15,7 +15,6 @@
 sub creat_zsk(@);
 sub post_creat(@);
 
-
 MAIN: {
     my @zone;
     my $do;
@@ -36,17 +35,17 @@
 
 sub read_argv ($) {
     my $master_dir = $_[0];
-	my $zone;
+    my $zone;
     my $do;      # return
     my @zone;    # return
 
-	GetOptions(
-	"z"		=> sub { $do = "zsk" },
-	"k"	    => sub { $do = "ksk" },
-	"h"		=> sub {pod2usage},
-	"r"     => sub { $do = "rm" },
-	"c"		=> sub { $do = "ck" },
-	) or pod2usage;
+    GetOptions(
+        "z" => sub { $do = "zsk" },
+        "k" => sub { $do = "ksk" },
+        "h" => sub { pod2usage },
+        "r" => sub { $do = "rm" },
+        "c" => sub { $do = "ck" },
+    ) or pod2usage;
 
     # checks the zones in argv if there are managed zones
     for (@ARGV) {
@@ -83,7 +82,6 @@
     return %return;
 }
 
-
 sub rm_keys (@) {
 
     # deletes all the keys were handed over -rm in argv