# copy argument to new variable so we don't clobber the original
my $arg = shift || '';
my $tmp = $arg;
-
- $tmp =~ s/([\<\>\'\"])/sprintf("&#%02x;", chr($1))/ge;
-
+ $tmp =~ s/&/&/g;
+ $tmp =~ s/</</g;
+ $tmp =~ s/>/>/g;
return $tmp;
}
sub ShellEscape {
# copy argument to new variable so we don't clobber the original
my $arg = shift || '';
- my $tmp = $arg;
-
- $tmp =~ s/([\!\;\\\'\"\`\<\>\|\s\(\)\[\]\?\#\$\^\&\*\=])/\\$1/g;
-
- return $tmp;
+ if ($arg =~ /["\s]/) { return "'" . $arg . "'"; }
+ return $arg;
}
##----------------------------------------------------------------------------##