fix now that things are packed

This commit is contained in:
Doug Bell 2009-04-30 19:45:37 +00:00
parent 9b20ce2fe7
commit 81b77e1836
8 changed files with 15 additions and 18 deletions

View file

@ -245,8 +245,8 @@ sub simpleHTMLParser {
sub simpleTextParser {
my ($text) = @_;
my ($url) = $text =~ /^HREF=(.+)$/m;
my ($label) = $text =~ /^LABEL=(.+)$/m;
my ($url) = $text =~ /HREF=(.+?)(LABEL|\Z)/;
my ($label) = $text =~ /LABEL=(.+?)(HREF|\Z)/;
return ($url, $label);
}