Commit 7bd3b031 authored by Matthieu Muffato's avatar Matthieu Muffato
Browse files

text_to_shell_lit has already moved to Utils.pm

parent 1dcd9016
......@@ -76,26 +76,6 @@ sub param_defaults {
}
=head2 text_to_shell_lit
Argument[0]: String
Description: Escapes the single-quotes of the string and wrap it into single-quotes
This is useful to stringify a list of commands / arguments to run them
through the shell.
NB: The "_" prototype is essential to allow the method to wrap $_ into @_
PS: Shamelessly adapted from http://www.perlmonks.org/?node_id=908096
=cut
my %shell_characters = map {$_ => 1} qw(< > |);
sub text_to_shell_lit(_) {
return $_[0] if $shell_characters{$_[0]} or $_[0] =~ /^[a-zA-Z0-9_\-]+\z/;
my $s = $_[0];
$s =~ s/'/'\\''/g;
return "'$s'";
}
=head2 run
Description : Implements run() interface method of Bio::EnsEMBL::Hive::Process that is used to perform the main bulk of the job (minus input and output).
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment