X-Git-Url: https://git.deb.at/?p=deb%2Fpackages.git;a=blobdiff_plain;f=lib%2FPackages%2FPage.pm;h=201408fb5c9484fdfd77e6c299aff48c16f1d4b2;hp=e550fcc372556e7ffc7bb49ec63d1e437eaf77a4;hb=56d4b3ed57e20359e5ea46feabb850cf4a94caf2;hpb=dc9512b1309f4c8c6bd1171b543183e8ac8b2115 diff --git a/lib/Packages/Page.pm b/lib/Packages/Page.pm index e550fcc..201408f 100644 --- a/lib/Packages/Page.pm +++ b/lib/Packages/Page.pm @@ -5,6 +5,7 @@ use warnings; use Data::Dumper; use Exporter; +use Locale::gettext; use Deb::Versions; use Packages::CGI; @@ -33,7 +34,6 @@ sub new { return $self; } -sub gettext { return $_[0]; } sub split_name_mail { my $string = shift; my ( $name, $email ); @@ -88,7 +88,7 @@ sub add_provided_by { push @{$self->{provided_by}}, @$provided_by; } -sub is_virutal { +sub is_virtual { my ($self) = @_; return (exists($self->{provided_by}) && !exists($self->{versions}));