Subversion Repositories DevTools

    #   locking while we create the package directory

    #   locking while we create the package directory

    #   Note: Windows can't do a flock on a directory handle

    #   Note: Windows can't do a flock on a directory handle

    #         so we must create a file

    #         so we must create a file

    #

    #

    my $dirLockfile = "$DPKG_ROOT/lockfile";

    my $dirLockfile = "$DPKG_ROOT/lockfile";

    #

    #

    #   Create the top level directory

    #   Create the top level directory

    #

    #

    mkpath($DPKG_DIR, 0, 0775);

    mkpath($DPKG_DIR, 0, 0775);

    #

    #

    #   Release the lock that we have in the target file system

    #   Release the lock that we have in the target file system

    #   Create a lock on the package version directory

    #   Create a lock on the package version directory

    #   This allows others to create new package versions

    #   This allows others to create new package versions

    #

    #

    Verbose ("Aquiring packageVersion lock");

    Verbose ("Aquiring packageVersion lock");

    open (ARCHIVE_LOCK, '>', $pkgLockfile) || Error ("Cannot open package directory for locking: $!", $pkgLockfile );

    open (ARCHIVE_LOCK, '>', $pkgLockfile) || Error ("Cannot open package directory for locking: $!", $pkgLockfile );

    flock ARCHIVE_LOCK, 2;

    flock ARCHIVE_LOCK, 2;

    #

    #