WebSVN – DevTools – Diff – /core_devl/trunk/TOOLS/create_dpkg.pl

 #------------------------------------------------------------------------------
 sub pkgFind
+#
 # Description:
-#     This subroutine is used to locate all associated pkg files in
+#     This subroutine is used to locate the FIRST descpkg file in
 #     the local pkg dir.
+#
 #------------------------------------------------------------------------------
+{
     my($item)= "$File::Find::name";
     # we get the absolute path from the find, but we only require
     # a relative path from the starting dir.
     # so our start dir.
     # we need to determine which file we are dealing with
-    if ( ! -d "$item" && "$file" =~ /^descpkg$/ )
+    if ( ! -d $item && $file =~ /^descpkg$/ )
+    {
+        #
+        #   Only grab the first one
+        #
+        if ( $DESCPKG_FILE )
+        {
+            Warning ("Package contains multiple descpkg files");
+            return;
+        }
         $DESCPKG_FILE = $item;
         my($dir)= File::Basename::dirname($item);
         $DPKG_NAME = File::Basename::basename($dir);
         $SRC_ROOT = $dir;
+    }

Subversion Repositories DevTools