$record->{ 'STRAND' } = 'X';
}
- if ( $record->{ 'S_BEG' } and $record->{ 'S_END' } )
+ if ( defined $record->{ 'S_BEG' } and defined $record->{ 'S_END' } )
{
for ( $i = $record->{ 'S_BEG' }; $i <= $record->{ 'S_END' }; $i++ ) {
$contig_hash->{ $record->{ 'S_ID' } }->{ $record->{ 'Q_ID' } }->{ $record->{ 'STRAND' } }->[ $i ]++;
}
}
- if ( $record->{ 'S_BEG1' } and $record->{ 'S_END1' } and $record->{ 'S_BEG2' } and $record->{ 'S_END2' } )
+ if ( defined $record->{ 'S_BEG1' } and defined $record->{ 'S_END1' } and
+ defined $record->{ 'S_BEG2' } and defined $record->{ 'S_END2' } )
{
if ( $options->{ 'bridge' } )
{