Changeset 972
- Timestamp:
- 06/12/06 13:25:28
- Files:
-
- trunk/plagger/lib/Plagger/Util.pm (modified) (1 diff)
Legend:
- Unmodified
- Added
- Removed
- Modified
- Copied
- Moved
trunk/plagger/lib/Plagger/Util.pm
r847 r972 96 96 sub extract_title { 97 97 my $content = shift; 98 my $title = ($content =~ m!<title>\s*(.*?)\s*</title>! s)[0] or return;98 my $title = ($content =~ m!<title>\s*(.*?)\s*</title>!is)[0] or return; 99 99 HTML::Entities::decode($1); 100 100 }
