From 9d309fd1d214fc379c42f5fcded71a42505e77cc Mon Sep 17 00:00:00 2001
From: Frederic Lepied <flepied@mandriva.com>
Date: Mon, 11 Oct 2004 04:35:42 +0000
Subject: more robust to bogus answer to get the key

---
 mdkonline.pm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/mdkonline.pm b/mdkonline.pm
index fbd17fb4..ac235e4c 100644
--- a/mdkonline.pm
+++ b/mdkonline.pm
@@ -158,7 +158,7 @@ sub send_config {
     my $response = $ua->request(POST $link,
 				Content_Type => 'form-data',
                                 Content => [ %$content ]);
-    if ($response->is_success && $response->content =~ /^TRUE(.*)/) {
+    if ($response->is_success && $response->content =~ /^TRUE(.*?)([^a-zA-Z0-9].*)?$/) {
 	($res, $key) = ('TRUE', $1);
     } 
     ($res, $key)
-- 
cgit v1.2.1