Clear perl error

diff --git a/usermin/edit_ssl.cgi b/usermin/edit_ssl.cgi
index afc01cb..54913d4 100755 (executable)
--- a/usermin/edit_ssl.cgi
+++ b/usermin/edit_ssl.cgi
@@ -7,6 +7,7 @@ $access{'ssl'} || &error($text{'acl_ecannot'});
 &ui_print_header(undef, $text{'ssl_title'}, "");
 &get_usermin_miniserv_config(\%miniserv);
 
+$@ = undef;
 eval "use Net::SSLeay";
 if ($@) {
        print &text('ssl_essl', "http://www.webmin.com/ssl.html"),"\n";

diff --git a/webmin/edit_ssl.cgi b/webmin/edit_ssl.cgi
index df573c3..0565605 100755 (executable)
--- a/webmin/edit_ssl.cgi
+++ b/webmin/edit_ssl.cgi
@@ -8,6 +8,7 @@ require './webmin-lib.pl';
 &get_miniserv_config(\%miniserv);
 
 # Check if we even *have* SSL support
+$@ = undef;
 eval "use Net::SSLeay";
 if ($@) {
        print &text('ssl_essl', "http://www.webmin.com/ssl.html"),"<p>\n";