From c3cef39c9f03918eb2d6e209ceeff0dc64b80ec7 Mon Sep 17 00:00:00 2001
From: Russ Allbery <rra@stanford.edu>
Date: Wed, 13 Feb 2008 01:44:34 +0000
Subject: 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::*.

---
 NEWS                  | 4 ++++
 perl/Wallet/ACL.pm    | 4 ----
 perl/Wallet/Server.pm | 4 ----
 3 files changed, 4 insertions(+), 8 deletions(-)

diff --git a/NEWS b/NEWS
index 3c30fd3..9ddd94e 100644
--- a/NEWS
+++ b/NEWS
@@ -18,6 +18,10 @@ wallet 0.8 (unreleased)
     wallet-admin now supports registering new object or ACL verifier
     implementations in the database.
 
+    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::*.
+
     Add a full end-to-end test suite to catch protocol mismatches between
     the client and server, such as the one fixed in this release.
 
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 ($@);
-- 
cgit v1.2.3