git://git.jankratochvil.net
/
PerlMail.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
| inline |
side by side
(from parent 1:
9ac7635
)
Fix Perl compatibility: &import -> &in
author
short
<>
Fri, 17 Dec 2004 20:55:11 +0000
(20:55 +0000)
committer
short
<>
Fri, 17 Dec 2004 20:55:11 +0000
(20:55 +0000)
PerlMail/Contacts.pm
patch
|
blob
|
history
contacts-n9k2mutt
patch
|
blob
|
history
diff --git
a/PerlMail/Contacts.pm
b/PerlMail/Contacts.pm
index
0471a7e
..
4f04cca
100644
(file)
--- a/
PerlMail/Contacts.pm
+++ b/
PerlMail/Contacts.pm
@@
-54,7
+54,7
@@
my($self,$data,@headers)=@_;
return @r;
}
-sub i
mport
+sub i
n
{
my($self,$data)=@_;
@@
-73,7
+73,7
@@
my($self,$href,@headers)=@_;
return join("",map(("[$_]\r\n".(!defined $href->{$_} ? "" : $href->{$_}."\r\n")),@headers))."[$trailer]\r\n";
}
-sub
expor
t
+sub
ou
t
{
my($self,$data)=@_;
diff --git
a/contacts-n9k2mutt
b/contacts-n9k2mutt
index
ee4d9ad
..
915ad44
100755
(executable)
--- a/
contacts-n9k2mutt
+++ b/
contacts-n9k2mutt
@@
-50,7
+50,7
@@
while (<>) {
"iscompany"=>($record{"Name"} && $record{"Company"} && $record{"Name"} eq $record{"Company"}),
}));
} @record);
- } PerlMail::Contacts->i
mport
($_));
+ } PerlMail::Contacts->i
n
($_));
my @nicked=map({
my $data=$_;
my($name,$mail,$attr,$iscompany)=map(($data->{$_}),qw(name mail attr iscompany));