4519 ABI checking needs to adapt to modern times, run by default

*** 101,111 ****
  sub Category {
          my ($Ver, $Soname) = @_;
  
          # For Solaris and related products, the SUNW_ prefix is
          # used for numbered public versions.
!         if ($Ver =~ /^(SUNW_)(\d+)\.(\d+)(\.(\d+))?/) {
                  return ('NUMBERED', 3, $1, $2, $3, $5) if defined($5);
                  return ('NUMBERED', 2, $1, $2, $3);
          }
  
          # Well known plain versions. In Solaris, these names were used
--- 101,111 ----
  sub Category {
          my ($Ver, $Soname) = @_;
  
          # For Solaris and related products, the SUNW_ prefix is
          # used for numbered public versions.
!         if ($Ver =~ /^((?:SUNW|ILLUMOS)_)(\d+)\.(\d+)(\.(\d+))?/) {
                  return ('NUMBERED', 3, $1, $2, $3, $5) if defined($5);
                  return ('NUMBERED', 2, $1, $2, $3);
          }
  
          # Well known plain versions. In Solaris, these names were used
*** 122,132 ****
          # The Solaris convention is to use SUNWprivate to indicate
          # private versions. SUNWprivate can have a numeric suffix, but
          # the number is not significant for ELF versioning other than
          # being part of a unique name.
          return ('PRIVATE')
!             if ($Ver =~ /^SUNWprivate(_[0-9.]+)?$/);
  
          # Anything else is a version we don't recognize.
          return ('UNKNOWN');
  }
  
--- 122,132 ----
          # The Solaris convention is to use SUNWprivate to indicate
          # private versions. SUNWprivate can have a numeric suffix, but
          # the number is not significant for ELF versioning other than
          # being part of a unique name.
          return ('PRIVATE')
!             if ($Ver =~ /^(SUNW|ILLUMOS)private(_[0-9.]+)?$/);
  
          # Anything else is a version we don't recognize.
          return ('UNKNOWN');
  }