WebSVN – DevTools – Diff – /core_devl/trunk/TOOLS/LIB/MakeObject.pm

     #       2) Allows user to manipulate the list
+    #
     foreach my $lib ( @{$self->{ARRAY}} )
+    {
+        #
+        #   Some toolsets add names directly into the lists
+        #   Thus not all entries in the ARRAY have entries in
+        #   the LIST. We need to handle this
+        #
+        #   If we have the object, then use it
+        #   Else use a default name construction
+        #
+        #   Note: Is UGLY
+        #         Feature used by toolsets that create Shared and Static
-        Error ("Entry missing for: $lib in the collection of " . $self->{NAME} )
+        #         library pairs. They tend to do push @::LIBS, $name
+        #         Perhaps this should be done better
+        #
-            unless ( exists ($self->{LIST}{$lib}) );
+        unless ( exists ($self->{LIST}{$lib}) )
+        {
+            push @result, $self->{BASEDIR} . $self->{NFUNCT}($lib);
+        }
+        else
+        {
-        push @result, $self->{LIST}{$lib}->getPath();
+            push @result, $self->{LIST}{$lib}->getPath();
+        }
+    }
     \@result;
+}
 #sub DESTROY

Subversion Repositories DevTools