Control: retitle -1 Mail::Internet spews warnings for unnamed users Control: reassign -1 libmailtools-perl 2.12-1 Control: tag -1 patch
(split /,/, $name)[0] is undefined when $name is the empty string. -- Guilhem.
--- a/Mail/Internet.pm
+++ b/Mail/Internet.pm
@@ -532,7 +532,7 @@
# seperated fields, only the first of which should be used to prevent
# accidental exposure of system-local information like phone numbers/
# room numbers.
- $name = (split /,/, $name)[0];
+ $name = (split /,/, $name)[0] if $name ne "";
if($name =~ /[^\w\s]/)
{ $name =~ s/"/\"/g;
signature.asc
Description: Digital signature
