Update splice_module.pl

konradjk · Nov 29, 2016 · 6a99f18 · 6a99f18
1 parent 28a4843
commit 6a99f18
Showing 1 changed file with 3 additions and 3 deletions.
diff --git a/splice_module.pl b/splice_module.pl
@@ -3,7 +3,7 @@
 sub check_5UTR_splice {
     my $transcript_variation = shift;
     my $variation_feature = shift;
-    my $strand = $variation_feature->{strand};
+    my $strand = $transcript_variation->transcript->strand;
 
     # Start is always less than or equal to end regardless of the orientation of the slice (true for introns as well).
     my $slice = $variation_feature->feature_Slice();
@@ -21,7 +21,7 @@ sub check_5UTR_splice {
 sub check_3UTR_splice {
     my $transcript_variation = shift;
     my $variation_feature = shift;
-    my $strand = $variation_feature->{strand};
+    my $strand = $transcript_variation->transcript->strand;
 
     # Start is always less than or equal to end regardless of the orientation of the slice (true for introns as well).
     my $slice = $variation_feature->feature_Slice();
@@ -36,4 +36,4 @@ sub check_3UTR_splice {
     }
 }
 
-1;
+1;