diff --git a/perl/AnnotateVCFwithMAF.pl b/perl/AnnotateVCFwithMAF.pl index 5dc37be2e..89dda2de0 100755 --- a/perl/AnnotateVCFwithMAF.pl +++ b/perl/AnnotateVCFwithMAF.pl @@ -2,6 +2,7 @@ use strict; use Data::Dumper; +use File::Basename; sub usage { print "Usage: $0 \n"; @@ -16,7 +17,7 @@ if (!defined($args{'VCF_IN'}) || !defined($args{'MAF_IN'})) { &usage(); } -($args{'VCF_OUT'} = $args{'VCF_IN'}) =~ s/\.vcf/.maf_annotated.vcf/; +($args{'VCF_OUT'} = basename($args{'VCF_IN'})) =~ s/\.vcf/.maf_annotated.vcf/; my %ignoreEntries = ( 'normal_barcode' => 1,