Changeset 126

Show
Ignore:
Timestamp:
04/19/10 16:33:16 (4 years ago)
Author:
depesz
Message:

remove warning on splicing too short list

Files:

Legend:

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

    r125 r126  
    203203 
    204204    my @sorted = sort @too_old; 
    205     splice( @sorted, $self->{ 'remove-at-a-time' } )
     205    splice( @sorted, $self->{ 'remove-at-a-time' } ) if $self->{ 'remove-at-a-time' } < scalar @sorted
    206206 
    207207    return @sorted;