diff options
Diffstat (limited to 'lib/WebCoso/Common.pm')
-rw-r--r-- | lib/WebCoso/Common.pm | 6 |
1 files changed, 2 insertions, 4 deletions
diff --git a/lib/WebCoso/Common.pm b/lib/WebCoso/Common.pm index 00f0b6b..30b18fe 100644 --- a/lib/WebCoso/Common.pm +++ b/lib/WebCoso/Common.pm @@ -154,6 +154,7 @@ sub getTags { sub fromTo { my ($base,$opts)=@_; + DEBUG("fromTo: $base,{@{[ %$opts ]}}"); my $iter=File::Next::files( { file_filter=>$opts->{files}, @@ -212,10 +213,7 @@ our %docfiles=( files=>sub{m{^document\.}}, dirs=>sub{!m{^(tags$|_|\.)}}); our %feedfiles=( - files=>sub{m{^feed\.(?:[^.]+\.)*tt$}}, - dirs=>sub{!m{^[_.]}}); -our %feedfilesXML=( - files=>sub{m{^feed\.[^.]+\.xml$}}, + files=>sub{m{^feed\.(?:[^.]+\.)+tt$}}, dirs=>sub{!m{^[_.]}}); 1; |