1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
|
# NOTE: Derived from blib/lib/Mail/Internet.pm.
# Changes made here will be lost when autosplit again.
# See AutoSplit.pm.
package Mail::Internet;
#line 490 "blib/lib/Mail/Internet.pm (autosplit into blib/lib/auto/Mail/Internet/sign.al)"
sub sign
{
my $me = shift;
my %arg = @_;
my $sig;
my @sig;
if($sig = delete $arg{File})
{
local *SIG;
if(open(SIG,$sig))
{
local $_;
while(<SIG>) { last unless /\A(--)?\s*\Z/; }
@sig = ($_,<SIG>,"\n");
close(SIG);
}
}
elsif($sig = delete $arg{Signature})
{
@sig = ref($sig) ? @$sig : split(/\n/, $sig);
}
if(@sig)
{
$me->remove_sig;
map(s/\n?\Z/\n/,@sig);
push(@{$me->body}, "-- \n",@sig);
}
}
# end of Mail::Internet::sign
1;
|
