Test that subs aren't stubbed

[perl/modules/Sub-Op.git] / Makefile.PL

diff --git a/Makefile.PL b/Makefile.PL
index 248c76f9d94fd3cca50e3c0acd1fb9dbed59a3b2..539884e6d8a1dafb2072d9821ff468491f21d18c 100644 (file)
--- a/Makefile.PL
+++ b/Makefile.PL
@@ -14,6 +14,7 @@ $file = "lib/$file.pm";
 my %PREREQ_PM = (
  'B::Hooks::EndOfScope' => 0,
  'DynaLoader'           => 0,
+ 'Scalar::Util'         => 0,
  'Variable::Magic'      => '0.39',
 );
 
@@ -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";
  }
@@ -88,11 +90,11 @@ sub MY::postamble {
  <<' POSTAMBLE';
 configure_test.pl: args.dat
 
-t/Sub-Op-Test/Makefile: configure_test.pl
+t/Sub-Op-LexicalSub/Makefile: configure_test.pl
        $(FULLPERLRUN) configure_test.pl
 
-all clean:: t/Sub-Op-Test/Makefile
-       cd t/Sub-Op-Test && $(MAKE) $@
+all clean:: t/Sub-Op-LexicalSub/Makefile
+       cd t/Sub-Op-LexicalSub && $(MAKE) $@
 
 clean::
        $(RM_RF) args.dat