Revision 804

Date:
2020/09/25 10:48:18
Author:
ahitrov
Revision Log:
regex iterator bugfix

Files:

Legend:

 
Added
 
Removed
 
Modified

  • utf8/core/lib/Contenido/Parser.pm

     
    175 175 my ($self, $input)= @_;
    176 176 my @tags;
    177 177 $input =~ s/[\r\n\t]+/\ /sgi;
    178 if ( $input =~ /<title.*?>(.*?)<\/title.*?>/sgi ) {
    178 if ( $input =~ /<title.*?>(.*?)<\/title.*?>/si ) {
    179 179 my $title = $1;
    180 180 for ( $title ) {
    181 181 s/^\s+//;