use Carp;
use POSIX;
use IO::Handle;
+use Storable qw(dclone);
+use JSON; # allows simple debug-dumping of variables `print to_json($foo, {pretty => 1}) ."\n"`
use PVE::INotify;
# Turn the current network config into a string.
sub w() {
- return PVE::INotify::__write_etc_network_interfaces($config);
+ # write shouldn't be able to change a previously parsed config
+ my $config_clone = dclone($config);
+ return PVE::INotify::__write_etc_network_interfaces($config_clone, 1);
}
##