+ $packages = join( ", ",
+ map { ( my $p = $_ ) =~ s/^\s*(.+?) \|.+/$1/; $p }
+ grep {/.+\|.+\|.+/} split( /\n/, $body ) );
+ $packages
+ = ( substr $packages, 0,
+ ( $config->{titlelength} - length($reason) - 6 ) )
+ . " ..."
+ if length("$packages: $reason") > $config->{titlelength};