File tree 4 files changed +10
-2
lines changed
4 files changed +10
-2
lines changed Original file line number Diff line number Diff line change @@ -53,7 +53,7 @@ use warnings;
53
53
use base qw( Exporter) ;
54
54
55
55
our $VEP_VERSION = 99;
56
- our $VEP_SUB_VERSION = 0 ;
56
+ our $VEP_SUB_VERSION = 1 ;
57
57
58
58
our @EXPORT_OK = qw(
59
59
@FLAG_FIELDS
Original file line number Diff line number Diff line change @@ -370,7 +370,7 @@ sub output_hash_to_vcf_info_chunk {
370
370
push @chunk , $data ;
371
371
}
372
372
# keep 0 values
373
- elsif (defined $hash -> {$col }
373
+ elsif (defined $hash -> {$col } && $hash -> { $col } ne ' '
374
374
&& ($hash -> {$col } == 0)) {
375
375
push @chunk , $hash -> {$col };
376
376
}
Original file line number Diff line number Diff line change @@ -168,6 +168,7 @@ sub create_VariationFeatures {
168
168
my @errors ;
169
169
170
170
foreach my $core_group (@core_groups ) {
171
+ next if (($hgvs =~ / NM_/ || $hgvs =~ / XM_/ ) && $core_group eq ' core' );
171
172
my $sa = $self -> get_adaptor($core_group , ' Slice' );
172
173
my $ta = $self -> get_adaptor($core_group , ' Transcript' );
173
174
Original file line number Diff line number Diff line change 260
260
" output_hash_to_vcf_info_chunk - 0 kept"
261
261
);
262
262
263
+ is(
264
+ $of -> output_hash_to_vcf_info_chunk({Allele => ' ' , SIFT => 0}),
265
+ ' |0' ,
266
+ " output_hash_to_vcf_info_chunk - empty string provided"
267
+ );
268
+
269
+
263
270
264
271
# # get_all_lines_by_InputBuffer
265
272
# ##############################
You can’t perform that action at this time.
0 commit comments