refactor

1 files changed, 5 insertions, 8 deletions

diff --git a/foostats.pl b/foostats.pl
index 50be4f5..5aa1e86 100644
--- a/foostats.pl
+++ b/foostats.pl
@@ -407,20 +407,17 @@ package main {
   }
 
   sub replicate ($stats_dir, $partner_node) {
-    unless (defined $partner_node) {
-      # Default values if partner node not set.
-      $partner_node = hostname eq 'fishfinger.buetow.org' 
-                    ? 'blowfish.buetow.org'
-                    : 'fishfinger.buetow.org';
-    }
-
     Foostats::Replicator->new(stats_dir => $stats_dir)->replicate($partner_node);
   }
 
   sub pretty_print () { say 'pretty_print not yet implemented' }
 
-  my ($parse_logs, $replicate, $pretty_print, $partner_node);
+  my ($parse_logs, $replicate, $pretty_print);
+
+  # With default values
   my $stats_dir = '/var/www/htdocs/buetow.org/self/foostats';
+  my $partner_node = hostname eq 'fishfinger.buetow.org' 
+                   ? 'blowfish.buetow.org' : 'fishfinger.buetow.org';
 
   GetOptions 'parse-logs'   => \$parse_logs,
              'replicate'    => \$replicate,