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

(-)a/QohA/Files.pm (-2 / +1 lines)
Lines 26-32 sub BUILD { Link Here
26
        my $file;
26
        my $file;
27
        if ( $filepath =~ qr/\.xml$|\.xsl$|\.xslt$/i ) {
27
        if ( $filepath =~ qr/\.xml$|\.xsl$|\.xslt$/i ) {
28
            $file = QohA::File::XML->new(path => $filepath);
28
            $file = QohA::File::XML->new(path => $filepath);
29
        } elsif ( $filepath =~ qr/\.pl$|\.pm$|\.t$/i ) {
29
        } elsif ( $filepath =~ qr/\.pl$|\.pm$|\.t$|svc|unapi$/i ) {
30
            $file = QohA::File::Perl->new(path => $filepath);
30
            $file = QohA::File::Perl->new(path => $filepath);
31
        } elsif ( $filepath =~ qr/\.tt$|\.inc$/i ) {
31
        } elsif ( $filepath =~ qr/\.tt$|\.inc$/i ) {
32
            $file = QohA::File::Template->new(path => $filepath);
32
            $file = QohA::File::Template->new(path => $filepath);
33
- 

Return to bug 19782