Subversion Repositories DevTools

Rev

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

Rev 5003 Rev 5330
Line 654... Line 654...
654
    #   locking while we create the package directory
654
    #   locking while we create the package directory
655
    #   Note: Windows can't do a flock on a directory handle
655
    #   Note: Windows can't do a flock on a directory handle
656
    #         so we must create a file
656
    #         so we must create a file
657
    #
657
    #
658
    my $dirLockfile = "$DPKG_ROOT/lockfile";
658
    my $dirLockfile = "$DPKG_ROOT/lockfile";
-
 
659
    my $pkgLockfile = "$DPKG_DIR/lockfile";
-
 
660
    if ($GBE_ABT)
-
 
661
    {
659
    Verbose ("Aquiring archive lock");
662
        Verbose ("Aquiring archive lock");
660
    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 );
661
    flock ARCHIVE_LOCK, 2;
664
        flock ARCHIVE_LOCK, 2;
-
 
665
    }
662
 
666
 
663
    #
667
    #
664
    #   Create the top level directory
668
    #   Create the top level directory
665
    #
669
    #
666
    mkpath($DPKG_DIR, 0, 0775);
670
    mkpath($DPKG_DIR, 0, 0775);
Line 668... Line 672...
668
    #
672
    #
669
    #   Release the lock that we have in the target file system
673
    #   Release the lock that we have in the target file system
670
    #   Create a lock on the package version directory
674
    #   Create a lock on the package version directory
671
    #   This allows others to create new package versions
675
    #   This allows others to create new package versions
672
    #
676
    #
-
 
677
    if ($GBE_ABT)
-
 
678
    {
673
    Verbose ("Releasing archive lock");
679
        Verbose ("Releasing archive lock");
674
    close ARCHIVE_LOCK;
680
        close ARCHIVE_LOCK;
675
    unlink $dirLockfile;
681
        unlink $dirLockfile;
-
 
682
    }
676
 
683
 
677
    my $pkgLockfile = "$DPKG_DIR/lockfile";
-
 
678
    Verbose ("Aquiring packageVersion lock");
684
    Verbose ("Aquiring packageVersion lock");
679
    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 );
680
    flock ARCHIVE_LOCK, 2;
686
    flock ARCHIVE_LOCK, 2;
681
 
687
 
682
    #
688
    #