Imported Upstream version 0.22
Angel Abad
12 years ago
| 48 | 48 |
- Changes to TacacsPlus.pm to permit multiple servers to be specified in
|
| 49 | 49 |
new(). Patches provided by Paulo A Ferreira.
|
| 50 | 50 |
|
|
51 |
0.22 Wed Jan 18, 2012 Mike McCauley
|
|
52 |
- Fixed warning under perl 5.14
|
|
53 |
|
|
54 |
|
| 0 | 0 |
--- #YAML:1.0
|
| 1 | 1 |
name: Authen-TacacsPlus
|
| 2 | |
version: 0.21
|
|
2 |
version: 0.22
|
| 3 | 3 |
abstract: ~
|
| 4 | 4 |
author: []
|
| 5 | 5 |
license: unknown
|
|
| 13 | 13 |
directory:
|
| 14 | 14 |
- t
|
| 15 | 15 |
- inc
|
| 16 | |
generated_by: ExtUtils::MakeMaker version 6.56
|
|
16 |
generated_by: ExtUtils::MakeMaker version 6.57_05
|
| 17 | 17 |
meta-spec:
|
| 18 | 18 |
url: http://module-build.sourceforge.net/META-spec-v1.4.html
|
| 19 | 19 |
version: 1.4
|
| 16 | 16 |
@EXPORT_OK = qw(
|
| 17 | 17 |
TACPLUS_CLIENT
|
| 18 | 18 |
);
|
| 19 | |
$VERSION = '0.21';
|
|
19 |
$VERSION = '0.22';
|
| 20 | 20 |
|
| 21 | 21 |
sub new
|
| 22 | 22 |
{
|
|
| 25 | 25 |
my $self = {};
|
| 26 | 26 |
bless $self, $class;
|
| 27 | 27 |
$self->{'servers'} = [];
|
| 28 | |
if (ref @_[0] eq 'ARRAY') {
|
| 29 | |
%h = @{ @_[0] };
|
|
28 |
if (ref $_[0] eq 'ARRAY') {
|
|
29 |
%h = @{ $_[0] };
|
| 30 | 30 |
shift @_;
|
| 31 | 31 |
push @{ $self->{'servers'} }, @_;
|
| 32 | 32 |
} else {
|