attached patches from Bill MacAllister

1 files changed, 30 insertions, 0 deletions

diff --git a/debian/patches/0007-class-error.patch b/debian/patches/0007-class-error.patch
new file mode 100644
index 0000000..b62009c
--- /dev/null
+++ b/debian/patches/0007-class-error.patch
@@ -0,0 +1,30 @@
+Patch to make errors invoking a class more descriptive.  The errors
+only happen when there is a reference to a module that does not exist
+or has not been installed.
+
+diff --git a/perl/lib/Wallet/Server.pm b/perl/lib/Wallet/Server.pm
+index b0c955c..f4f9f81 100644
+--- a/perl/lib/Wallet/Server.pm
++++ b/perl/lib/Wallet/Server.pm
+@@ -103,7 +103,7 @@ sub type_mapping {
+     if (defined $class) {
+         eval "require $class";
+         if ($@) {
+-            $self->error ($@);
++            print ($self->error ($@));
+             return;
+         }
+     }
+@@ -508,10 +508,10 @@ sub checksum {
+     }
+     my $object = $self->retrieve ($type, $name);
+     if (!defined $object) {
+-	return;
++    return;
+     }
+     if (!$self->acl_verify ($object, 'get')) {
+-	return;
++    return;
+     }
+     my $result = $object->checksum($self->{user}, $self->{host});
+     $self->error ($object->error) unless defined $result;