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/VersionTag.pm
View file

@ -328,7 +328,7 @@ sub getWorking {
$session->stow->set("versionTag",$tag);
return $tag;
} elsif ($noCreate) {
return undef;
return;
} else {
my $tag = $class->create($session);
$tag->setWorking;
@ -375,7 +375,7 @@ sub new {
my $session = shift;
my $tagId = shift;
my $data = $session->db->getRow("assetVersionTag","tagId", $tagId);
return undef unless $data->{tagId};
return unless $data->{tagId};
bless {_session=>$session, _id=>$tagId, _data=>$data}, $class;
}