Lines Matching defs:major
36 sub major($self)
38 return $self->{major};
48 return ".".$self->major.".".$self->minor;
85 if ($a->major != $b->major) {
86 return $a->major <=> $b->major;
157 if (my ($dir, $stem, $major, $minor) = $filename =~ m/^(.*)\/lib([^\/]+)\.so\.(\d+)\.(\d+)$/o) {
158 bless { dir => $dir, stem => $stem, major => $major,
167 return "$self->{dir}/lib$self->{stem}.so.$self->{major}.$self->{minor}";
194 if ($self->major > $other->major) {
197 if ($self->major == $other->major && $self->minor > $other->minor) {
211 sub new($class, $dir, $stem, $major, $minor)
215 major => $major, minor => $minor
226 sub new_with_stem($class, $stem, $major, $minor)
229 return $class->new($1, $2, $major, $minor);
231 return $class->new(undef, $stem, $major, $minor);
237 if (my ($stem, $major, $minor) = $string =~ m/^(.*)\.(\d+)\.(\d+)$/o) {
238 return $class->new_with_stem($stem, $major, $minor);
246 return join('.', $self->key, $self->major, $self->minor);
262 return $spec->major != $library->major;
284 return "bad major";
286 if ($spec->major == $library->major &&