Print this page
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'); }