X-Git-Url: http://git.vpit.fr/?a=blobdiff_plain;f=Makefile.PL;h=9ad9836d4af634f6deff20b71b4853e841b138ac;hb=50984c4a3e39b187b5b52ceeba826bc819d23564;hp=6069830e4976897ba31de3c51e1d695ba6db5ecf;hpb=14a44e7b2f834cbd0d2ba8cc63deda55b3e5f0dd;p=perl%2Fmodules%2FSub-Op.git

diff --git a/Makefile.PL b/Makefile.PL
index 6069830..9ad9836 100644
--- a/Makefile.PL
+++ b/Makefile.PL
@@ -14,7 +14,8 @@ $file = "lib/$file.pm";
 my %PREREQ_PM = (
  'B::Hooks::EndOfScope' => 0,
  'DynaLoader'           => 0,
- 'Variable::Magic'      => '0.39',
+ 'Scalar::Util'         => 0,
+ 'Variable::Magic'      => '0.40',
 );
 
 my %META = (
@@ -79,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";
  }