first round of Perl::Critic cleanups. Do not use return undef, use a bare return instead

This commit is contained in:
Colin Kuskie 2007-12-05 00:30:43 +00:00
parent 75041656ee
commit 96178fd70c
92 changed files with 209 additions and 209 deletions

View file

@ -132,7 +132,7 @@ sub getValueFromPost {
return $value
}
else {
return undef;
return;
}
}
@ -147,7 +147,7 @@ sub getValueFromPost {
} else {
# Mysql format
my $value = $self->session->form->param($self->get("name"));
return undef unless $value =~ /^\d{2}\D\d{2}(\D\d{2})?$/;
return unless $value =~ /^\d{2}\D\d{2}(\D\d{2})?$/;
return $value;
}
}