open my $in, '<', $file or die $!;
my $sdn_config;
{
- local $/; # slurp mode
+ local $/; # slurp mode
$sdn_config = eval <$in>;
}
close $in;
my $expected = read_file("./$test/expected_sdn_interfaces");
my $result = "";
- eval {
+ eval {
$result = PVE::Network::SDN::Zones::generate_etc_network_config();
};
my $expected = read_file("./$test/expected_controller_config");
my $controller_rawconfig = "";
- eval {
+ eval {
my $config = PVE::Network::SDN::Controllers::generate_controller_config();
$controller_rawconfig = PVE::Network::SDN::Controllers::generate_controller_rawconfig($config);
};
-
if (my $err = $@) {
fail($name);
} else {