blob: b62009c1ed8d32a53b022df1b3e12804ab14d97d (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
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;
|
