Lines Matching refs:pname
711 my ($pname, $pemail, $oname, $oemail, $line_num)= @$rec;
714 if ($pname =~ /=\?UTF-8\?/) {
715 $pname= decode("MIME-Header", $pname);
717 my $auth_email= $author_info->{"name2email"}{$pname};
724 ## this email exists in authors, so use its name data for pname
725 $pname= $auth_name;
729 if ($pname ne "unknown") {
730 if (my $email= $seen_map{"name"}{$pname}) {
731 ## we have seen this pname before, check the pemail
734 warn encode_utf8 "Inconsistent emails for name '$pname'"
741 $seen_map{"name"}{$pname}= $pemail;
748 if ($name ne $pname) {
751 . " '$pname'\n";
752 $pname= $name;
756 $seen_map{"email"}{$pemail}= $pname;
760 my $rec= [ $pname, $pemail, $oname, $oemail, $line_num ];
765 $pref_groups{"$pname $pemail"}{$oemail}{ $oname || "" }= $rec;
798 my ($pname, $pemail, $oname, $oemail, $line_num)= @$rec;
799 my $preferred= "$pname <$pemail>";
813 $self->_safe_set_key($mailmap_info, $O2PN, $other, $pname);
817 if ($pname ne "unknown") {
818 $self->_safe_set_key($mailmap_info, $N2P, $pname, $preferred);