Changeset 220 for trunk

Show
Ignore:
Timestamp:
01/27/11 18:15:52 (3 years ago)
Author:
brian
Message:

tid14898 - silence unitialized warning if source is not defined on the command line

Files:

Legend:

Unmodified
Added
Removed
Modified
Copied
Moved
  • trunk/omnipitr/doc/changes.pod

    r219 r220  
    11=head1 OmniPITR 
     2 
     3=head2 2011-01-27 
     4 
     5=over 
     6 
     7=item * Silence warning if source is not defined on the command line 
     8 
     9=back  
    210 
    311=head2 2011-01-24 
  • trunk/omnipitr/lib/OmniPITR/Program/Backup/Slave.pm

    r214 r220  
    409409    } 
    410410 
    411     if ( $args{ 'source' } =~ s/\A(gzip|bzip2|lzma)=// ) { 
     411    if ( defined $args{ 'source' } && $args{ 'source' } =~ s/\A(gzip|bzip2|lzma)=// ) { 
    412412        $self->{ 'source' } = { 
    413413            'compression' => $1,