From: Vincent Pit <vince@profvince.com>
Date: Mon, 4 Jan 2010 11:39:40 +0000 (+0100)
Subject: Fix passing shell quoted arguments to Sub::Op::LexicalSub Makefile.PL
X-Git-Tag: v0.02~9
X-Git-Url: http://git.vpit.fr/?p=perl%2Fmodules%2FSub-Op.git;a=commitdiff_plain;h=b263ea7b53b7c555bb386abaa527319b011700fc

Fix passing shell quoted arguments to Sub::Op::LexicalSub Makefile.PL
---

diff --git a/Makefile.PL b/Makefile.PL
index a7e84db..539884e 100644
--- a/Makefile.PL
+++ b/Makefile.PL
@@ -80,6 +80,7 @@ WriteMakefile(
  open my $fh, '>', $args_dat or die "open(>$args_dat): $!";
  for (@ARGV) {
   my $arg = $_;
+  $arg =~ s{\s*(['"])\s*(.*)\s*\1\s*$}{$2}s;
   $arg =~ s{([^=/.a-zA-Z0-9-])}{sprintf "[%d]", ord $1}ge;
   print $fh "$arg\n";
  }