From b60cd5db35074f9137a149cd64632b180aa5ea0e Mon Sep 17 00:00:00 2001 From: Mandrake Date: Tue, 12 Sep 2006 11:03:25 +0000 Subject: add get_full_version including epoch, used for obsolete search --- lib/Youri/Package/URPM.pm | 7 +++++++ 1 file changed, 7 insertions(+) (limited to 'lib/Youri/Package') diff --git a/lib/Youri/Package/URPM.pm b/lib/Youri/Package/URPM.pm index 2dcc317..3cd8aa4 100644 --- a/lib/Youri/Package/URPM.pm +++ b/lib/Youri/Package/URPM.pm @@ -110,6 +110,13 @@ sub get_version { return $self->{_header}->version(); } +sub get_full_version { + my ($self) = @_; + croak "Not a class method" unless ref $self; + + return $self->{_header}->epoch() ."-" . $self->{_header}->version() . "-". $self->{_header}->release() +} + sub get_release { my ($self) = @_; croak "Not a class method" unless ref $self; -- cgit v1.2.1