From ba1f686920be56ca37adababa3aa247f33fa2a59 Mon Sep 17 00:00:00 2001 From: Colin Kuskie Date: Mon, 3 Dec 2007 02:00:28 +0000 Subject: [PATCH] ran perlcritic -stern on Session.pm. Fixed a few things that it recommends. Session.pm was clean for -gentle --- lib/WebGUI/Session.pm | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/lib/WebGUI/Session.pm b/lib/WebGUI/Session.pm index e0d1f6014..a743d0dd3 100644 --- a/lib/WebGUI/Session.pm +++ b/lib/WebGUI/Session.pm @@ -183,7 +183,7 @@ sub db { } else { if ($skipFatal) { - return undef + return; } else { $self->errorHandler->fatal("Couldn't connect to WebGUI database, and can't continue without it."); @@ -580,7 +580,7 @@ sub url { unless (exists $self->{_url}) { $self->{_url} = WebGUI::Session::Url->new($self); } - $self->{_url}; + return $self->{_url}; } #------------------------------------------------------------------- @@ -619,7 +619,7 @@ sub user { $self->{_user} = WebGUI::User->new($self, $self->var->get('userId')); $self->request->user($self->{_user}->username) if $self->request; } - return $self->{_user}; + return $self->{_user}; }