View | Details | Raw Unified | Return to bug 12076
Collapse All | Expand All

(-)a/xt/tt_valid.t (-2 / +1 lines)
Lines 38-44 my @files_with_directive_in_tag = do { Link Here
38
        while ( my $token = $parser->next_token ) {
38
        while ( my $token = $parser->next_token ) {
39
            my $attr = $token->{_attr};
39
            my $attr = $token->{_attr};
40
            next unless $attr;
40
            next unless $attr;
41
            push @lines, $token->{_lc} if $attr->{'[%'};
41
            push @lines, $token->{_lc} if $attr->{'[%'} or $attr->{'[%-'};
42
        }
42
        }
43
        ($dir) = $dir =~ /koha-tmpl\/(.*)$/;
43
        ($dir) = $dir =~ /koha-tmpl\/(.*)$/;
44
        push @files, { name => "$dir/$name", lines => \@lines } if @lines;
44
        push @files, { name => "$dir/$name", lines => \@lines } if @lines;
45
- 

Return to bug 12076