peer cert expired done correctly now

1 files changed, 4 insertions, 4 deletions

diff --git a/gmi.pl b/gmi.pl
index 03cdf55..b295a08 100755
--- a/gmi.pl
+++ b/gmi.pl
@@ -25,15 +25,15 @@ use Term::ANSIColor; # Core
 use Path::Naive qw(normalize_path); # CPAN
 use Text::ParseWords; # Core
 use Term::ReadLine; # CPAN
-use Smart::Comments; # CPAN
+#use Smart::Comments; # CPAN
 use URI::Encode qw(uri_encode); # CPAN
 use IO::Socket::SSL::Utils; # CPAN
 use File::Slurper qw(read_dir read_text); # CPAN
-use Data::Dumper;
+#use Data::Dumper; # Core
 use File::BaseDir qw(xdg_config_home xdg_data_home xdg_cache_home); # CPAN
 use TOML qw(from_toml to_toml); # CPAN
 
-# sudo cpanm IO::Socket::SSL URL::XS IO::Pager Text::Wraper Term::ReadKey Path::Naive  Text::ParseWords Term::ReadLine Smart::Comments URI::Encode IO::Socket::SSL::Utils File::Slurper File::BaseDir
+# sudo cpanm IO::Socket::SSL URL::XS IO::Pager Text::Wraper Term::ReadKey Path::Naive  Text::ParseWords Term::ReadLine Smart::Comments URI::Encode IO::Socket::SSL::Utils File::Slurper File::BaseDir TOML
 
 my %config = (
 	'use_pager' => 1,
@@ -380,7 +380,7 @@ sub peer_cert {
 	}
 
 	# check expiratory
-	if ($peer_not_before < $peer_not_after) {
+	if ($peer_not_before < time() and time() < $peer_not_after) {
 		### not expired
 		;
 	}