Fix perl warning

virtualmin · Dec 10, 2022 · 7827828 · 7827828
1 parent 55245ee
commit 7827828
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/virtual_feature.pl b/virtual_feature.pl
@@ -590,7 +590,7 @@ sub feature_modify
 	if ($d->{'dom'} ne $oldd->{'dom'}) {
 		my $newfile = &get_add_to_file($d->{'dom'});
 		my $server = &find_domain_server($d);
-		if ($server->{'file'} ne $newfile &&
+		if ((!$newfile || $server->{'file'} ne $newfile) &&
 		    $server->{'file'} =~ /\Q$oldd->{'dom'}\E/) {
 			&$virtual_server::first_print($text{'feat_modifyfile'});
 			&delete_server_link($server);