summaryrefslogtreecommitdiff
path: root/perl
diff options
context:
space:
mode:
authorRuss Allbery <rra@stanford.edu>2008-02-13 01:44:34 +0000
committerRuss Allbery <rra@stanford.edu>2008-02-13 01:44:34 +0000
commitc3cef39c9f03918eb2d6e209ceeff0dc64b80ec7 (patch)
tree91ece80ca1e19d07fd638f8ace0148806b46beb5 /perl
parent48b1e8f46c35519cb83c332660e266f6392f65b6 (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.pm4
-rw-r--r--perl/Wallet/Server.pm4
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 ($@);