From 35741136455e4b5aece850c8290ec8af3f7d5b2b Mon Sep 17 00:00:00 2001
From: Doug Bell <doug@plainblack.com>
Date: Thu, 30 Apr 2009 19:37:13 +0000
Subject: [PATCH] fix now that things are packed

---
 t/Macro/AdminToggle.t | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

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);
 }