oqapi/webgui
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

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

Browse source
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
Download patch file Download diff file Expand all files Collapse all files

4
lib/WebGUI/Mail/Send.pm
View file

@ -394,9 +394,9 @@ sub retrieve {
my $class = shift;
my $session = shift;
my $messageId = shift;
return undef unless $messageId;
return unless $messageId;
my $data = $session->db->getRow("mailQueue","messageId", $messageId);
return undef unless $data->{messageId};
return unless $data->{messageId};
$session->db->deleteRow("mailQueue","messageId", $messageId);
my $parser = MIME::Parser->new;
$parser->output_to_core(1);