diff options
| author | Russ Allbery <eagle@eyrie.org> | 2014-07-16 16:32:07 -0700 |
|---|---|---|
| committer | Russ Allbery <eagle@eyrie.org> | 2014-07-16 16:32:07 -0700 |
| commit | 6b4fbafa3edd99045b8eba896dd8642aa6bd6113 (patch) | |
| tree | 79124a4bccc49a0b8bf3e2b5189b0e7b18a635ee /perl/lib/Wallet/Object/Duo.pm | |
| parent | e4adb8cde42b91110c2d283aa3712f89afc78ead (diff) | |
| parent | 27f4e81ddb42440345e6dd01a4943cb57ee5da39 (diff) | |
Merge tag 'upstream/1.1' into debian
Upstream version 1.1
Diffstat (limited to 'perl/lib/Wallet/Object/Duo.pm')
| -rw-r--r-- | perl/lib/Wallet/Object/Duo.pm | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/perl/lib/Wallet/Object/Duo.pm b/perl/lib/Wallet/Object/Duo.pm index e3fe2da..6edc4fa 100644 --- a/perl/lib/Wallet/Object/Duo.pm +++ b/perl/lib/Wallet/Object/Duo.pm @@ -105,7 +105,7 @@ sub create { # Create the object in Duo. require Net::Duo::Admin::Integration; my %data = ( - name => $name, + name => "$name ($Wallet::Config::DUO_TYPE)", notes => 'Managed by wallet', type => $Wallet::Config::DUO_TYPE, ); @@ -190,7 +190,7 @@ sub get { # We also need the admin server name, which we can get from the Duo object # configuration with a bit of JSON decoding. - my $json = JSON->new->utf8 (1); + my $json = JSON->new->utf8 (1)->relaxed (1); my $config = $json->decode (scalar slurp $Wallet::Config::DUO_KEY_FILE); # Construct the returned file. |