diff options
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 ($@); |