Changeset 124
- Timestamp:
- 04/19/10 15:37:00 (8 years ago)
- Files:
-
- trunk/omnipitr/lib/OmniPITR/Program/Archive.pm (modified) (2 diffs)
Legend:
- Unmodified
- Added
- Removed
- Modified
- Copied
- Moved
trunk/omnipitr/lib/OmniPITR/Program/Archive.pm
r123 r124 393 393 } 394 394 395 $self->log->fatal( 'Given segment name is not valid (%s)', $self->{ 'segment' } ) unless basename( $self->{ 'segment' } ) =~ m{\A [a-fA-F0-9]{24}(?:\.[a-fA-F0-9]{8}\.backup)?\z};395 $self->log->fatal( 'Given segment name is not valid (%s)', $self->{ 'segment' } ) unless basename( $self->{ 'segment' } ) =~ m{\A(?:[a-fA-F0-9]{24}(?:\.[a-fA-F0-9]{8}\.backup)?|[a-fA-F0-9]{8}\.history)\z}; 396 396 my $segment_file_name = $self->{ 'segment' }; 397 397 $segment_file_name = File::Spec->catfile( $self->{ 'data-dir' }, $self->{ 'segment' } ) unless $self->{ 'segment' } =~ m{^/}; … … 401 401 $self->log->fatal( 'Given segment (%s) is not readable.', $segment_file_name ) unless -r $segment_file_name; 402 402 403 unless ( $self->{ 'segment' } =~ m{\.backup\z} ) {403 if ( $self->{ 'segment' } =~ m{\A[a-fA-F0-9]{24}\z} ) { 404 404 my $expected_size = 256**3; 405 405 my $file_size = ( -s $segment_file_name );