runtest: clone config before passing to write to avoid side effects

[pve-common.git] / test / etc_network_interfaces / runtest.pl

diff --git a/test/etc_network_interfaces/runtest.pl b/test/etc_network_interfaces/runtest.pl
index c067dd1b38f3c498f437b850b9f33f204513a397..b5277c3b1b0350c9b448330d489dcbd3e5d5be16 100755 (executable)
--- a/test/etc_network_interfaces/runtest.pl
+++ b/test/etc_network_interfaces/runtest.pl
@@ -8,6 +8,7 @@ use warnings;
 use Carp;
 use POSIX;
 use IO::Handle;
+use Storable qw(dclone);
 
 use PVE::INotify;
 
@@ -74,7 +75,9 @@ sub r($;$$) {
 
 # 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);
 }
 
 ##