- my @uploaders = @{$page->get_src( 'uploaders' )};
- foreach (@uploaders) {
- $_->[0] = encode_entities( $_->[0], '&<>' );
- }
- my ($maint_name, $maint_mail ) = @{shift @uploaders};
- unless (@uploaders) {
- $str .= "<p>\n".sprintf( gettext( "%s is responsible for this Debian package." ).
- "\n",
- "<a href=\"mailto:$maint_mail\">$maint_name</a>"
- );
- } else {
- my $up_str = "<a href=\"mailto:$maint_mail\">$maint_name</a>";
- my @uploaders_str;
- foreach (@uploaders) {
- push @uploaders_str, "<a href=\"mailto:$_->[1]\">$_->[0]</a>";
+ my $uploaders = $page->get_src( 'uploaders' );
+ if ($uploaders && @$uploaders) {
+ foreach (@$uploaders) {
+ $_->[0] = encode_entities( $_->[0], '&<>' );
+ }
+ my ($maint_name, $maint_mail) = @{shift @$uploaders};
+ unless (@$uploaders) {
+ $str .= "<p>\n".sprintf( gettext( "%s is responsible for this Debian package." ).
+ "\n",
+ "<a href=\"mailto:$maint_mail\">$maint_name</a>"
+ );
+ } else {
+ my $up_str = "<a href=\"mailto:$maint_mail\">$maint_name</a>";
+ my @uploaders_str;
+ foreach (@$uploaders) {
+ push @uploaders_str, "<a href=\"mailto:$_->[1]\">$_->[0]</a>";
+ }
+ my $last_up = pop @uploaders_str;
+ $up_str .= ", ".join ", ", @uploaders_str if @uploaders_str;
+ $up_str .= sprintf( gettext( " and %s are responsible for this Debian package." ), $last_up );
+ $str .= "<p>\n$up_str ";