On Sat, Aug 30, 2008 at 10:37:15PM +0200, Jakub Narebski wrote:
> # quote the given arguments for passing them to the shell
> # quote_command("command", "arg 1", "arg with ' and ! characters")
> # => "'command' 'arg 1' 'arg with '\'' and '\!' characters'"
> # Try to avoid using this function wherever possible.
> sub quote_command {
> return join(' ',
> map( { my $a = $_; $a =~ s/(['!])/'\\$1'/g; "'$a'" } @_ ));
> }
Well, I guess you know why I did not consider it worth from my side to go into
that business. ;-)
If someone has a concrete implementation and a list of (concrete) tests I
should do I can do so.
Otherwise I just consider Perl 5.6 as unsupported since our main development
systems have Perl 5.8 or later anyway.
Robert
--
Robert Schiele
Dipl.-Wirtsch.informatiker mailto:rschiele@xxxxxxxxx
"Quidquid latine dictum sit, altum sonatur."
Attachment:
pgpekDa60Lpt7.pgp
Description: PGP signature
