From e9b759ac30b5601e75e0a932cab743fc8c0112df Mon Sep 17 00:00:00 2001 From: Dietmar Maurer Date: Fri, 5 May 2017 15:30:58 +0200 Subject: [PATCH] PVE::ReplicationTools - only use required modules (remove Time::Local) --- PVE/ReplicationTools.pm | 9 ++++----- 1 file changed, 4 insertions(+), 5 deletions(-) diff --git a/PVE/ReplicationTools.pm b/PVE/ReplicationTools.pm index 3f5b619..88187d4 100644 --- a/PVE/ReplicationTools.pm +++ b/PVE/ReplicationTools.pm @@ -2,17 +2,16 @@ package PVE::ReplicationTools; use warnings; use strict; +use Data::Dumper; +use JSON; -use PVE::Tools qw(run_command); +use PVE::Tools; use PVE::Cluster; use PVE::QemuConfig; use PVE::QemuServer; use PVE::LXC::Config; use PVE::LXC; use PVE::Storage; -use Time::Local; -use JSON; -use Data::Dumper qw(Dumper); my $STATE_DIR = '/var/lib/pve-replica'; my $STATE_PATH = "$STATE_DIR/pve-replica.state"; @@ -69,7 +68,7 @@ sub get_node_ip { if (my $network = $dc_conf->{storage_replication_network}) { my $cmd = ['ssh', '-o', 'Batchmode=yes', "root\@$remoteip", '--' - ,'pvecm', 'mtunnel', '--get_migration_ip', + ,'pvecm', 'mtunnel', '--get_migration_ip e', '--migration_network', $network]; PVE::Tools::run_command($cmd, outfunc => sub {