accidentally reverted some fixes... puting them back

git-svn-id: svn://svn.open-ils.org/OpenSRF/trunk@59 9efc2488-bf62-4759-914b-345cdb29e865

diff --git a/src/perlmods/OpenSRF/AppSession.pm b/src/perlmods/OpenSRF/AppSession.pm
index fa503ed..b0dcc82 100644 (file)
--- a/src/perlmods/OpenSRF/AppSession.pm
+++ b/src/perlmods/OpenSRF/AppSession.pm
@@ -270,12 +270,12 @@ sub connect {
 
        my $app = shift;
        my $api_level = shift;
-       $api_level = 1 unless (defined $api_level)
+       $api_level = 1 unless (defined $api_level);
 
        $self = $class->create($app, @_) if (!ref($self));
        return undef unless ($self);
 
-       $self->{api_level} = $api_level
+       $self->{api_level} = $api_level;
 
        $self->reset;
        $self->state(CONNECTING);