Show
Ignore:
Timestamp:
01/05/09 07:01:35 (4 years ago)
Author:
drry
Message:
Files:
1 modified

Legend:

Unmodified
Added
Removed

  • lang/perl/WWW-Yahoo-Lyrics-JP/trunk/lib/WWW/Yahoo/Lyrics/JP.pm

    r27930 r27931  
    3131    my $result_res = $self->ua->get($url); 
    3232    return $song unless $result_res->is_success; 
    33     if ( $result_res->content =~ m!<div id="acx"><a href="([^"]+)">! ) { 
     33    if ( $result_res->content =~ m!<div id=\\"acx\\"><a href=\\"(.+?)\\">! ) { 
    3434        if ( $1 =~ m!(\d+)/(Y\d{6})$! ) { 
    3535            $song->aid($1);