log.pl
changeset 62 9d3ec0d441a7
parent 59 c5570cbcee3c
child 68 3fa7ee3a0c87
child 77 c32177d893a5
equal deleted inserted replaced
61:da4124f52e68 62:9d3ec0d441a7
   299     chomp($r);
   299     chomp($r);
   300     return $r;
   300     return $r;
   301 }
   301 }
   302 
   302 
   303 sub mailto() {
   303 sub mailto() {
   304     return join(", ", grep defined => @config::mailto);
   304     return join(", ", grep {defined} @config::mailto);
   305 }
   305 }
   306 
   306 
   307 sub word_encoded($) {
   307 sub word_encoded($) {
   308     my $line = shift;
   308     my $line = shift;
   309 
   309