diff options
| author | Florian Schlichting <fsfs@debian.org> | 2015-11-24 23:31:50 +0100 |
|---|---|---|
| committer | Florian Schlichting <fsfs@debian.org> | 2015-11-24 23:31:50 +0100 |
| commit | 2b934c1bcd6797e2db494f6d1c92f2e777d27133 (patch) | |
| tree | 04399f78eced92001a4b349f78ee12c271e8d5dc | |
| parent | 26049a5e00404e1119dbf090174b3508bf97b881 (diff) | |
| parent | 8fc8bca9dced40b75ab56c3b65e4f6b69f827381 (diff) | |
Merge tag 'upstream/0.25'
Upstream version 0.25
| -rw-r--r-- | META.json | 4 | ||||
| -rw-r--r-- | META.yml | 10 | ||||
| -rw-r--r-- | TacacsPlus.pm | 17 |
3 files changed, 22 insertions, 9 deletions
@@ -4,7 +4,7 @@ "unknown" ], "dynamic_config" : 1, - "generated_by" : "ExtUtils::MakeMaker version 6.6302, CPAN::Meta::Converter version 2.120630", + "generated_by" : "ExtUtils::MakeMaker version 6.66, CPAN::Meta::Converter version 2.142060", "license" : [ "unknown" ], @@ -35,5 +35,5 @@ } }, "release_status" : "stable", - "version" : "0.24" + "version" : "0.25" } @@ -3,19 +3,19 @@ abstract: unknown author: - unknown build_requires: - ExtUtils::MakeMaker: 0 + ExtUtils::MakeMaker: '0' configure_requires: - ExtUtils::MakeMaker: 0 + ExtUtils::MakeMaker: '0' dynamic_config: 1 -generated_by: 'ExtUtils::MakeMaker version 6.6302, CPAN::Meta::Converter version 2.120630' +generated_by: 'ExtUtils::MakeMaker version 6.66, CPAN::Meta::Converter version 2.142060' license: unknown meta-spec: url: http://module-build.sourceforge.net/META-spec-v1.4.html - version: 1.4 + version: '1.4' name: Authen-TacacsPlus no_index: directory: - t - inc requires: {} -version: 0.24 +version: '0.25' diff --git a/TacacsPlus.pm b/TacacsPlus.pm index 28ff27a..bd03468 100644 --- a/TacacsPlus.pm +++ b/TacacsPlus.pm @@ -17,7 +17,7 @@ require DynaLoader; @EXPORT_OK = qw( TACPLUS_CLIENT ); -$VERSION = '0.24'; +$VERSION = '0.25'; sub new { @@ -50,6 +50,7 @@ if ($res<0) { $h{'Key'}, $h{'Timeout'} ? $h{'Timeout'} : 15 ); + $self->{'open'} = 1 if ($res >= 0); last if ($res >= 0); } } @@ -87,9 +88,21 @@ sub authen sub close { - deinit_tac_session(); + my ($self) = @_; + + if ($self->{'open'}) + { + deinit_tac_session(); + $self->{'open'} = 0; + } } +sub DESTROY +{ + my ($self) = @_; + + $self->close(); +} sub AUTOLOAD { |