fix uninitialized value warnings
I suspect these are only triggered by spammers.master
parent
6fb0ab580e
commit
e1ff06b634
|
@ -406,19 +406,19 @@ sub sessioncgi ($$) {
|
|||
|
||||
if ($config{comments_allowauthor}) {
|
||||
my $author = $form->field('author');
|
||||
if (length $author) {
|
||||
if (defined $author && length $author) {
|
||||
$author =~ s/"/"/g;
|
||||
$content .= " claimedauthor=\"$author\"\n";
|
||||
}
|
||||
my $url = $form->field('url');
|
||||
if (length $url) {
|
||||
if (defined $url && length $url) {
|
||||
$url =~ s/"/"/g;
|
||||
$content .= " url=\"$url\"\n";
|
||||
}
|
||||
}
|
||||
|
||||
my $subject = $form->field('subject');
|
||||
if (length $subject) {
|
||||
if (defined $subject && length $subject) {
|
||||
$subject =~ s/"/"/g;
|
||||
$content .= " subject=\"$subject\"\n";
|
||||
}
|
||||
|
|
Loading…
Reference in New Issue