Subversion Repositories DevTools

Rev

Rev 227 | Rev 241 | Go to most recent revision | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 227 Rev 235
Line 330... Line 330...
330
 
330
 
331
#------------------------------------------------------------------------------
331
#------------------------------------------------------------------------------
332
sub pkgFind
332
sub pkgFind
333
#
333
#
334
# Description:
334
# Description:
335
#     This subroutine is used to locate all associated pkg files in
335
#     This subroutine is used to locate the FIRST descpkg file in
336
#     the local pkg dir.
336
#     the local pkg dir.
337
#
337
#
338
#------------------------------------------------------------------------------
338
#------------------------------------------------------------------------------
339
{
339
{
340
    my($item)= "$File::Find::name";
340
    my($item)= "$File::Find::name";
Line 343... Line 343...
343
    # we get the absolute path from the find, but we only require
343
    # we get the absolute path from the find, but we only require
344
    # a relative path from the starting dir.
344
    # a relative path from the starting dir.
345
    # so our start dir.
345
    # so our start dir.
346
 
346
 
347
    # we need to determine which file we are dealing with
347
    # we need to determine which file we are dealing with
348
    if ( ! -d "$item" && "$file" =~ /^descpkg$/ )
348
    if ( ! -d $item && $file =~ /^descpkg$/ )
349
    {
349
    {
-
 
350
        #
-
 
351
        #   Only grab the first one
-
 
352
        #
-
 
353
        if ( $DESCPKG_FILE )
-
 
354
        {
-
 
355
            Warning ("Package contains multiple descpkg files");
-
 
356
            return;
-
 
357
        }
-
 
358
 
350
        $DESCPKG_FILE = $item;
359
        $DESCPKG_FILE = $item;
351
        my($dir)= File::Basename::dirname($item);
360
        my($dir)= File::Basename::dirname($item);
352
        $DPKG_NAME = File::Basename::basename($dir);
361
        $DPKG_NAME = File::Basename::basename($dir);
353
        $SRC_ROOT = $dir;
362
        $SRC_ROOT = $dir;
354
    }
363
    }