diff options
| author | Russ Allbery <rra@stanford.edu> | 2007-12-06 23:58:48 +0000 |
|---|---|---|
| committer | Russ Allbery <rra@stanford.edu> | 2007-12-06 23:58:48 +0000 |
| commit | 800d3067e3d95d9f3e744444e271f118e7632295 (patch) | |
| tree | 69bf8cc72facee11350d30e2446b12b35c3dff27 /perl | |
| parent | 4878c6af49ddc4ca7fb7dcef21da7d9ca28014de (diff) | |
Be a bit more careful and conservative when stripping realms off.
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); |