This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Avoid double quotes in switchM.t runperl args.
authorCraig A. Berry <craigberry@mac.com>
Wed, 16 Apr 2014 00:30:26 +0000 (19:30 -0500)
committerTony Cook <tony@develop-help.com>
Wed, 23 Apr 2014 04:41:14 +0000 (14:41 +1000)
The new tests added in 9fdd5a7ac74817 were sending runperl a -e
command with double quotes around it, which confuses matters on
VMS where arguments get double quotes added unless they already
have them.  The solution is simple: just use the 'prog' parameter
to runperl and let runperl handle the quoting.

t/run/switchM.t

index 6a75100..ac2f5de 100644 (file)
@@ -18,10 +18,10 @@ like(runperl(switches => ['-Irun/flib/', '-Mbroken'], stderr => 1),
      qr/^Global symbol "\$x" requires explicit package name at run\/flib\/broken.pm line 6\./,
      "Ensure -Irun/flib/ produces correct filename in warnings");
 
-like(runperl(switches => ['-Irun/flib', '-Mt2', '-e "print t2::id()"'], stderr => 1),
+like(runperl(switches => ['-Irun/flib', '-Mt2'], prog => 'print t2::id()', stderr => 1),
      qr/^t2pmc$/,
      "Ensure -Irun/flib loads pmc");
 
-like(runperl(switches => ['-Irun/flib/', '-Mt2', '-e "print t2::id()"'], stderr => 1),
+like(runperl(switches => ['-Irun/flib/', '-Mt2'], prog => 'print t2::id()', stderr => 1),
      qr/^t2pmc$/,
      "Ensure -Irun/flib/ loads pmc");