--- a/t/01-zone-mk.t	Thu Jun 30 15:19:33 2011 +0200
+++ b/t/01-zone-mk.t	Thu Jun 30 16:24:32 2011 +0200
@@ -14,30 +14,30 @@
 my $CMD = "perl -Mblib blib/sbin/zone-mk";
 
 system("$CMD -h >/dev/null 2>&1");
-is($? => 0, "exit on help");
+is( $? => 0, "exit on help" );
 
 system("$CMD -m >/dev/null 2>&1");
-is($? => 0, "exit on man");
+is( $? => 0, "exit on man" );
 
 system("$CMD >/dev/null 2>&1");
-ok($? > 0, "error on missing args");
+ok( $? > 0, "error on missing args" );
 
-
-$_ = File::Temp::tempdir CLEANUP => 1 or die "Can't make temporary directory" for my ($master_dir, $config_dir);
+$_ = File::Temp::tempdir CLEANUP => 1
+  or die "Can't make temporary directory"
+  for my ( $master_dir, $config_dir );
 my $tmp = Aux::make_config {
-    master_dir => $master_dir,
+    master_dir    => $master_dir,
     zone_conf_dir => $config_dir,
-    hostmaster => 'hostmaster@schlittermann.de',
-    template_dir => './templates'
+    hostmaster    => 'hostmaster@schlittermann.de',
+    template_dir  => './templates'
 };
 $ENV{DNSTOOLS_CONF} = $tmp->filename;
 system("$CMD xxx müller.de >/dev/null 2>&1");
-is($? => 0, "created zone");
+is( $? => 0, "created zone" );
 
-my $domain = idn_to_ascii("müller.de", "UTF-8");
-ok(-s "$master_dir/$domain/$domain", "zone file $domain");
-ok(-s "$config_dir/$domain", "config file $domain");
-
+my $domain = idn_to_ascii( "müller.de", "UTF-8" );
+ok( -s "$master_dir/$domain/$domain", "zone file $domain" );
+ok( -s "$config_dir/$domain",         "config file $domain" );
 
 # older versions of Test::More (debian lenny fex) don't know done_testing
-if (defined &done_testing) { &done_testing; }
+if ( defined &done_testing ) { &done_testing; }