Subversion Repositories DevTools

Rev

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

Rev 5330 Rev 5410
Line 657... Line 657...
657 
    #
 657 
    #
658 
    my $dirLockfile = "$DPKG_ROOT/lockfile";
 658 
    my $dirLockfile = "$DPKG_ROOT/lockfile";
659 
    my $pkgLockfile = "$DPKG_DIR/lockfile";
 659 
    my $pkgLockfile = "$DPKG_DIR/lockfile";
660 
    if ($GBE_ABT)
 660 
    if ($GBE_ABT)
661 
    {
 661 
    {
662 
        Verbose ("Aquiring archive lock");
 662 
        Verbose ("Acquiring archive lock");
663 
        open (ARCHIVE_LOCK, '>', $dirLockfile) || Error ("Cannot open archive root for locking: $!", $dirLockfile );
 663 
        open (ARCHIVE_LOCK, '>', $dirLockfile) || Error ("Cannot open archive root for locking: $!", $dirLockfile );
664 
        flock ARCHIVE_LOCK, 2;
 664 
        flock ARCHIVE_LOCK, 2;
665 
    }
 665 
    }
666 
 
 666 
 
667 
    #
 667 
    #
Line 679... Line 679...
679 
        Verbose ("Releasing archive lock");
 679 
        Verbose ("Releasing archive lock");
680 
        close ARCHIVE_LOCK;
 680 
        close ARCHIVE_LOCK;
681 
        unlink $dirLockfile;
 681 
        unlink $dirLockfile;
682 
    }
 682 
    }
683 
 
 683 
 
684 
    Verbose ("Aquiring packageVersion lock");
 684 
    Verbose ("Acquiring packageVersion lock");
685 
    open (ARCHIVE_LOCK, '>', $pkgLockfile) || Error ("Cannot open package directory for locking: $!", $pkgLockfile );
 685 
    open (ARCHIVE_LOCK, '>', $pkgLockfile) || Error ("Cannot open package directory for locking: $!", $pkgLockfile );
686 
    flock ARCHIVE_LOCK, 2;
 686 
    flock ARCHIVE_LOCK, 2;
687 
 
 687 
 
688 
    #
 688 
    #
689 
    #   Transfer source directory, unless this is a noBuild
 689 
    #   Transfer source directory, unless this is a noBuild