diff libexec/callSomaticVariants.pl @ 10:f66f23fcc83a

Modified layout
author mini
date Tue, 30 Sep 2014 11:08:39 +0200
parents 87568e5a7d4f
children
line wrap: on
line diff
--- a/libexec/callSomaticVariants.pl	Fri Sep 26 14:33:07 2014 +0200
+++ b/libexec/callSomaticVariants.pl	Tue Sep 30 11:08:39 2014 +0200
@@ -1,7 +1,5 @@
 #!/usr/bin/env perl
-print "\n";
-print @INC;
-print "\n";
+
 =head1 LICENSE
 
 Strelka Workflow Software
@@ -38,9 +36,6 @@
 my $baseDir;
 my $libDir;
 BEGIN {
-print "\n";
-print @INC;
-print "\n";
 
     my $thisDir=(File::Spec->splitpath($0))[1];
     $baseDir=File::Spec->catdir($thisDir,File::Spec->updir());
@@ -48,12 +43,12 @@
 }
 use lib $libDir;
 use Utils;
+print "all imported call";
 
 if(getAbsPath($baseDir)) {
     errorX("Can't resolve path for strelka_workflow install directory: '$baseDir'");
 }
 my $libexecDir=File::Spec->catdir($baseDir,'libexec');
-#my $optDir=File::Spec->catdir($baseDir,'opt');
 
 
 my $scriptName=(File::Spec->splitpath($0))[2];
@@ -82,12 +77,9 @@
 #
 checkDir($baseDir);
 checkDir($libexecDir);
-#checkDir($optDir);
 
 my $strelkaBin=File::Spec->catdir($libexecDir,'strelka2');
 checkFile($strelkaBin,"strelka binary");
-#my $samtoolsBin = File::Spec->catfile($optDir,'samtools','samtools');
-#checkFile($samtoolsBin,"samtools binary");