Need to LWP SSL on FreeBSD > 8 (was > 9).

5f09e66f · Leigh B Stoller · b17e841b · 5f09e66f
Commit 5f09e66f authored Dec 27, 2012 by Leigh B Stoller
Hide whitespace changes
Inline Side-by-side

Showing with 2 additions and 2 deletions

protogeni/xmlrpc/Genixmlrpc.pm.in protogeni/xmlrpc/Genixmlrpc.pm.in +2 -2

No files found.
--- a/protogeni/xmlrpc/Genixmlrpc.pm.in
+++ b/protogeni/xmlrpc/Genixmlrpc.pm.in
@@ -186,7 +186,7 @@ sub CallMethod($$$@)
 	return undef;
    }
    
-    if ($FBSD_MAJOR >= 9) {
+    if ($FBSD_MAJOR >= 8) {
 	require LWP::UserAgent;
 	require IO::Socket::SSL;
 	require Net::HTTPS;
@@ -255,7 +255,7 @@ sub CallMethod($$$@)
    my $hreq = HTTP::Request->new(POST => $httpURL);
    $hreq->content_type('text/xml');
    $hreq->content($reqstr);
-    $hreq->protocol('HTTP/1.0')	if ($FBSD_MAJOR >= 9);
+    $hreq->protocol('HTTP/1.0')	if ($FBSD_MAJOR >= 8);
    my $hresp = $ua->request($hreq);

    # Do this or the next call gets messed up.