Changeset 1909 for trunk/LATMOS-Accounts/lib/LATMOS/Accounts/Bases

Timestamp:

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

Author:

nanardon

Message:

Avoid some perl warning

Location:

trunk/LATMOS-Accounts/lib/LATMOS/Accounts/Bases

Files:

• Sql.pm (modified) (1 diff)
• Sql/objects.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 {

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

@@ -730 +730 @@
         my $refname = sprintf('%s.%s.%s', $self->type, $self->id, $attr);
         my $attrref = "oalias=$refname";
-        warn "$ref, $refname";
+
         foreach my $alias ($self->base->search_objects($ref, $attrref)) {
             my $oalias = $self->base->GetAlias($ref, $alias) or next;
-            warn $oalias;
             $oalias->_update_aliases_cache;
             $oalias->_update_aliases_ptr;