fix now that things are packed
This commit is contained in:
parent
9b20ce2fe7
commit
81b77e1836
8 changed files with 15 additions and 18 deletions
|
|
@ -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);
|
||||
}
|
||||
|
|
|
|||
Loading…
Add table
Add a link
Reference in a new issue