diff options
Diffstat (limited to 'perl')
| -rw-r--r-- | perl/Wallet/ACL/NetDB.pm | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/perl/Wallet/ACL/NetDB.pm b/perl/Wallet/ACL/NetDB.pm index 0d12703..40cc210 100644 --- a/perl/Wallet/ACL/NetDB.pm +++ b/perl/Wallet/ACL/NetDB.pm @@ -73,7 +73,7 @@ sub check { } my $remctl = $self->{remctl}; if ($Wallet::Config::NETDB_REALM) { - $principal =~ s/\@\Q$Wallet::Config::NETDB_REALM//; + $principal =~ s/\@\Q$Wallet::Config::NETDB_REALM\E\z//; } unless ($remctl->command ('netdb', 'node-roles', $principal, $acl)) { $self->error ('cannot check NetDB ACL: ' . $remctl->error); |