Repository List
/
Contenido
/
utf8
/
core
/
lib
/
Contenido
/
Parser.pm @ HEAD
English
Checkout
View File
Blame/Annotate
View Revision Log
RSS Feed
Parser.pm
803
804
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+//;