Changeset 165 for trunk

Show
Ignore:
Timestamp:
06/07/10 16:02:45 (8 years ago)
Author:
depesz
Message:

fix the silencing to work in File::Path module in version < 2.0

Files:

Legend:

Unmodified
Added
Removed
Modified
Copied
Moved
  • trunk/omnipitr/lib/OmniPITR/Program/Backup/Master.pm

    r164 r165  
    183183    ); 
    184184    $self->log->time_finish( 'Compressing xlogs' ) if $self->verbose; 
    185     rmtree( $self->{ 'xlogs' } . '.real', { 'verbose' => 0 } ); 
     185    rmtree( $self->{ 'xlogs' }, 0 ); 
    186186 
    187187    return; 
     
    439439    my $self          = shift; 
    440440    my @msg_with_args = @_; 
    441     rmtree( $self->{ 'xlogs' } . '.real', $self->{ 'xlogs' }, { 'verbose' => 0 } ); 
     441    rmtree( [ $self->{ 'xlogs' } . '.real', $self->{ 'xlogs' } ], 0, ); 
    442442    $self->stop_pg_backup() if $self->{ 'pg_start_backup_done' }; 
    443443    $self->log->fatal( @msg_with_args ); 
     
    488488    my $self = shift; 
    489489    return unless $self->{ 'temp-dir-prepared' }; 
    490     rmtree( $self->{ 'temp-dir-prepared' }, { 'verbose' => 0 } ); 
     490    rmtree( [ $self->{ 'temp-dir-prepared' } ], 0 ); 
    491491    return; 
    492492}