Changeset 551
- Timestamp:
- 04/06/06 17:23:16
- Files:
Legend:
- Unmodified
- Added
- Removed
- Modified
- Copied
- Moved
trunk/plagger/assets/plugins/filter-entryfulltext/hatena_diary.pl
r548 r551 6 6 sub extract { 7 7 my($self, $args) = @_; 8 my $path = URI->new($args->{entry}->link)->path; 8 9 my $link = URI->new($args->{entry}->link); 10 my $path = $link->path; 11 $path .= '#' . $link->fragment if $link->fragment; 9 12 10 13 my $name = ( $path =~ /\#([\w\-]+)$/ )[0];
