sub write_htaccess()

in t/modules/substitute.t [107:116]

• 10 lines of code
• 3 McCabe index (conditional complexity)

sub write_htaccess
{
    my @rules = @_;
    my $file = File::Spec->catfile(Apache::Test::vars('serverroot'), 'htdocs',
                                   'modules', 'substitute', '.htaccess');
    my $content = "SetOutputFilter BUCKETEER;SUBSTITUTE\n";
    $content .= "Substitute $_\n" for @rules;
    t_write_file($file, $content);
    print "$content<===\n" if $debug;
}