diff --git a/t/Macro/AdminToggle.t b/t/Macro/AdminToggle.t index 63d572b4b..ca1afe405 100644 --- a/t/Macro/AdminToggle.t +++ b/t/Macro/AdminToggle.t @@ -175,8 +175,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); }