From 782782878ce9f80d8aaa81945604fab6180c31ed Mon Sep 17 00:00:00 2001 From: Jamie Cameron Date: Fri, 9 Dec 2022 19:55:29 -0800 Subject: [PATCH] Fix perl warning --- virtual_feature.pl | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/virtual_feature.pl b/virtual_feature.pl index a24c756..4594133 100644 --- 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);