Fixed problem with unusual characters in filenames

sanger-pathogens · Apr 24, 2014 · fa2ab43 · fa2ab43
1 parent 471dff4
commit fa2ab43
Showing 1 changed file with 1 addition and 0 deletions.
diff --git a/lib/Bio/Tradis/RunTradis.pm b/lib/Bio/Tradis/RunTradis.pm
@@ -433,6 +433,7 @@ sub _plotname {
     my ( $self, $seq_name ) = @_;
     my $outfile = $self->outfile;
 
+    $seq_name =~ s/[^\w\d\.]/_/g;
     my $plotfile_name = "$outfile.$seq_name.insert_site_plot.gz";
     return $plotfile_name;
 }