346             $files++;

   346             $files++;

   347             $_ = qq(\tfile "$zf";) and $changed++ unless $czf =~ m#\Q$z/$z$suf\E$#;

   347             $_ = qq(\tfile "$zf";) and $changed++ unless $czf =~ m#\Q$z/$z$suf\E$#;

   348         }

   348         }

   349 

   349 

   350         die "Multiple file statements found in '$cf' (maybe inside multiline comments)" if $files > 1;

   350         die "Multiple file statements found in '$cf' (maybe inside multiline comments)" if $files > 1;

   352 

   352 

   353         # file statement in config snippet doesnt match, so we make a backup first and write a new config

   353         # file statement in config snippet doesnt match, so we make a backup first and write a new config

   354         my $cb = "$cf.bak";

   354         my $cb = "$cf.bak";

   355         open B, ">$cb" or die "Can't open '$cb': $!";

   355         open B, ">$cb" or die "Can't open '$cb': $!";

   356         print B @lines;

   356         print B @lines;