Changeset 129 for trunk

Show
Ignore:
Timestamp:
04/20/10 21:21:40 (4 years ago)
Author:
depesz
Message:

silence a warning about uninitilized variable

Files:

Legend:

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

    r128 r129  
    6161 
    6262            my $destination_file_path = $dst->{ 'path' }; 
    63             my $is_backup = ( $dst->{ 'path' } eq $self->{ 'dst-backup' } ); 
     63 
     64            my $is_backup = undef; 
     65            if ( $self->{ 'dst-backup' } ) { 
     66                $is_backup = 1 if $dst->{ 'path' } eq $self->{ 'dst-backup' }; 
     67            } 
     68 
    6469            $destination_file_path =~ s{/*\z}{}; 
    6570            $destination_file_path .= '/' . basename( $local_file );