OpenSSL::Ordinals::set_version() should only be given the short version

[openssl.git] / util / perl / OpenSSL / Ordinals.pm

diff --git a/util/perl/OpenSSL/Ordinals.pm b/util/perl/OpenSSL/Ordinals.pm
index 7e4c008dc286ebbb57ce2d5f6e8d8ee09feb95dd..f6c63d14c471fa6f7b763cf303174ab641e178af 100644 (file)
--- a/util/perl/OpenSSL/Ordinals.pm
+++ b/util/perl/OpenSSL/Ordinals.pm
@@ -623,8 +623,6 @@ sub set_version {
     my $version = shift // '*';
     my $baseversion = shift // '*';
 
-    $version =~ s|-.*||g;
-
     if ($baseversion eq '*') {
         $baseversion = $version;
         if ($baseversion ne '*') {