Re: [PATCH] change Perl syntax to support Perl 5.6
- From
Robert Schiele <rschiele@gmail.com>
- Date
- Aug 30, 2008, 21:21 UTC
- Message-ID
- <20080830212117.GH7185@schiele.dyndns.org>
- In-Reply-To
- <200808302237.17017.jnareb@gmail.com>
On Sat, Aug 30, 2008 at 10:37:15PM +0200, Jakub Narebski wrote:
Show 8 quoted lines
> # 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@gmail.com "Quidquid latine dictum sit, altum sonatur."