Changeset 1317 for trunk

Timestamp:

04/07/15 16:42:40 (9 years ago)

Author:

nanardon

Message:

Die is no type is given for loading

File:

• trunk/LATMOS-Accounts/lib/LATMOS/Accounts/Bases.pm (modified) (1 diff)

trunk/LATMOS-Accounts/lib/LATMOS/Accounts/Bases.pm

@@ -245 +245 @@
     my ($self, $otype) = @_;
 
+    $otype or die "No type given: " . join(', ', caller) . "\n";
     # finding perl class:
     my $pclass = ref $self;