Changeset 1909 for trunk/LATMOS-Accounts/lib/LATMOS/Accounts/Bases/Sql.pm

Timestamp:

01/04/17 02:39:08 (8 years ago)

Author:

nanardon

Message:

Avoid some perl warning

File:

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

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

@@ -192 +192 @@
 sub _derefObject {
     my ($self, $otype, $oalias) = @_;
+    $oalias or return;
     if (my ($aliasotype, $aliasoname, $aliasattr) = $oalias =~ m/^([^\/]+)\.([^\.]+)\.(.*)$/) {
         my $attribute = $self->attribute($aliasotype, $aliasattr) or do {