develooper Front page | perl.perl5.porters | Postings from April 2017

[perl #129152] mkpport adds quotes to $perl even if it's alreadyquoted

Thread Previous
From:
brian d foy via RT
Date:
April 26, 2017 20:08
Subject:
[perl #129152] mkpport adds quotes to $perl even if it's alreadyquoted
Message ID:
rt-4.0.24-22497-1493237304-1387.129152-15-0@perl.org
I patched my 5.25.12 sources with this:

$ diff mkppport mkppport.new
140c140,145
<   my $run = $perl =~ m/\s/ ? qq("$perl") : $perl;
---
>   my $run = do {
>     # something is already quoting $perl
>     if ($perl =~ m/\A".+"\z/ or $perl !~ m/\s/ ) { $perl }
>     else  { qq("$perl") }
>     };
>

That solves the first problem.

---
via perlbug:  queue: perl5 status: open
https://rt.perl.org/Ticket/Display.html?id=129152

Thread Previous


nntp.perl.org: Perl Programming lists via nntp and http.
Comments to Ask Bjørn Hansen at ask@perl.org | Group listing | About