[prev] [thread] [next] [lurker] [Date index for 2002/08/25]
Update of /cvsroot/siesta/siesta/lib/Siesta/Plugin In directory usw-pr-cvs1:/tmp/cvs-serv28398 Modified Files: SimpleSig.pm Log Message: Stop problems if there is no sig. Index: SimpleSig.pm =================================================================== RCS file: /cvsroot/siesta/siesta/lib/Siesta/Plugin/SimpleSig.pm,v retrieving revision 1.9 retrieving revision 1.10 diff -u -d -r1.9 -r1.10 --- SimpleSig.pm 23 Aug 2002 14:26:38 -0000 1.9 +++ SimpleSig.pm 25 Aug 2002 14:18:18 -0000 1.10 @@ -19,6 +19,10 @@ my $body = join '', @{ $mail->body() }; my (undef,$sig) = split /-- \n/, $body, 2; + + # no point going on if there's no sig. Sob. Goodbye, cruel world. + return 0 unless defined $sig; + my (@lines) = split /\n/, $sig; if (scalar(@lines) > $maxlines + 1) { # reply should do the wrapping
Generated at 13:57 on 01 Jul 2004 by mariachi 0.52