Changeset 8305ebd7e30ecb0f6b031cb1ce153c28cd41ca73 in xas


Ignore:
Timestamp:
08/04/15 09:26:18 (2 years ago)
Author:
Kevin L. Esteb <kevin@…>
Branches:
master
Children:
96f11eb731229de55299aa08ec81c182fd951cfe
Parents:
257f9c4820af6bba0913ce5e778c40481ef55c05
git-author:
Kevin L. Esteb <kevin@…> (08/04/15 09:26:18)
git-committer:
Kevin L. Esteb <kevin@…> (08/04/15 09:26:18)
Message:

Fixed a problem of dropped volumes on Windows

Location:
trunk/lib/XAS/Lib
Files:
3 edited

Legend:

Unmodified
Added
Removed
  • trunk/lib/XAS/Lib/Batch/Interface/Torque.pm

    r257f9c4820af6bba0913ce5e778c40481ef55c05 r8305ebd7e30ecb0f6b031cb1ce153c28cd41ca73  
    2525; 
    2626 
    27 use Data::Dumper; 
     27#use Data::Dumper; 
    2828 
    2929# ---------------------------------------------------------------------- 
  • trunk/lib/XAS/Lib/Modules/Locking.pm

    r31c43191695dbf6e62d8d3ebe74e7d058281210e r8305ebd7e30ecb0f6b031cb1ce153c28cd41ca73  
    9595    ]); 
    9696 
    97     my $lock = File($directory->canonical, $self->lockfile); 
     97    my $lock = File($directory->path, $self->lockfile); 
    9898 
    9999    return $lock->path; 
  • trunk/lib/XAS/Lib/Pidfile.pm

    r31c43191695dbf6e62d8d3ebe74e7d058281210e r8305ebd7e30ecb0f6b031cb1ce153c28cd41ca73  
    1313 
    1414use XAS::Class 
    15   debug     => 0, 
    16   version   => $VERSION, 
    17   base      => 'XAS::Base', 
    18   mixin     => $mixin, 
    19   utils     => 'trim dotid', 
    20   accessors => 'lockmgr', 
     15  debug      => 0, 
     16  version    => $VERSION, 
     17  base       => 'XAS::Base', 
     18  mixin      => $mixin, 
     19  utils      => 'trim dotid', 
     20  accessors  => 'lockmgr', 
     21  filesystem => 'Dir', 
    2122  vars => { 
    2223    PARAMS => { 
     
    3738 
    3839    my $stat = 0; 
    39     my $lock = $self->file->directory; 
     40    my $lock = Dir($self->file->volume, $self->file->directory); 
    4041    my $output = sub { 
    4142 
     
    7172    my $self = shift; 
    7273 
    73     my $lock = $self->file->directory; 
     74    my $lock = Dir($self->file->volume, $self->file->directory); 
    7475 
    7576    if ($self->lockmgr->lock_directory($lock)) { 
     
    9192 
    9293    my $pid = undef; 
    93     my $lock = $self->file->directory; 
     94    my $lock = Dir($self->file->volume, $self->file->directory); 
    9495 
    9596    if ($self->lockmgr->lock_directory($lock)) { 
Note: See TracChangeset for help on using the changeset viewer.