Subversion Repositories DevTools

Rev

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

Rev 5862 Rev 6133
Line 439... Line 439...
439 
        }
 439 
        }
440 
 
 440 
 
441 
        #
 441 
        #
442 
        #   Locate package.
 442 
        #   Locate package.
443 
        #   It may be in GBE_DPKG_REPLICA, GBE_DPKG or GBE_DPKG_STORE
 443 
        #   It may be in GBE_DPKG_REPLICA, GBE_DPKG or GBE_DPKG_STORE
- 
 
 444 
        #       Package may (jats2_current) be a symlink
444 
        #
 445 
        #
445 
        my $pkg_found;
 446 
        my $pkg_found;
446 
        foreach my $store ( $istore, $archive, $gstore)
 447 
        foreach my $store ( $istore, $archive, $gstore)
447 
        {
 448 
        {
448 
            $parchive = "$store/$_";
 449 
            $parchive = "$store/$_";
- 
 
 450 
 
- 
 
 451 
            if (-l $parchive)
- 
 
 452 
            {
- 
 
 453 
                my $linkDir = readlink($parchive);
- 
 
 454 
                $parchive =~ s~/[^/]+$~/$linkDir~;
- 
 
 455 
            }
- 
 
 456 
 
449 
            if ( -d $parchive )
 457 
            if ( -d $parchive )
450 
            {
 458 
            {
451 
                $pkg_found = 1;
 459 
                $pkg_found = 1;
452 
                last;
 460 
                last;
453 
            }
 461 
            }