diff options
author | Russ Allbery <rra@stanford.edu> | 2008-02-13 01:44:34 +0000 |
---|---|---|
committer | Russ Allbery <rra@stanford.edu> | 2008-02-13 01:44:34 +0000 |
commit | c3cef39c9f03918eb2d6e209ceeff0dc64b80ec7 (patch) | |
tree | 91ece80ca1e19d07fd638f8ace0148806b46beb5 /perl | |
parent | 48b1e8f46c35519cb83c332660e266f6392f65b6 (diff) |
Remove the restriction that all object implementations must have class
names of Wallet::Object::* and all ACL verifier implementations must
have class names of Wallet::ACL::*.
Diffstat (limited to 'perl')
-rw-r--r-- | perl/Wallet/ACL.pm | 4 | ||||
-rw-r--r-- | perl/Wallet/Server.pm | 4 |
2 files changed, 0 insertions, 8 deletions
diff --git a/perl/Wallet/ACL.pm b/perl/Wallet/ACL.pm index 0e1018f..b96d2ac 100644 --- a/perl/Wallet/ACL.pm +++ b/perl/Wallet/ACL.pm @@ -137,10 +137,6 @@ sub scheme_mapping { return; } if (defined $class) { - if ($class !~ /^Wallet::ACL::(\w+::)*\w+\z/) { - $self->error ("invalid class name $class for scheme $scheme"); - return; - } eval "require $class"; if ($@) { $self->error ($@); diff --git a/perl/Wallet/Server.pm b/perl/Wallet/Server.pm index e698b39..d4e6a91 100644 --- a/perl/Wallet/Server.pm +++ b/perl/Wallet/Server.pm @@ -96,10 +96,6 @@ sub type_mapping { return; } if (defined $class) { - if ($class !~ /^Wallet::Object::(\w+::)*\w+\z/) { - $self->error ("invalid class name $class for type $type"); - return; - } eval "require $class"; if ($@) { $self->error ($@); |