From 2a07cc4f0ca093da65a23fd9dda1fdeafb0e917f Mon Sep 17 00:00:00 2001 From: "Craig A. Berry" Date: Tue, 15 Apr 2014 19:30:26 -0500 Subject: [PATCH] Avoid double quotes in switchM.t runperl args. 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 | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/t/run/switchM.t b/t/run/switchM.t index 6a75100..ac2f5de 100644 --- a/t/run/switchM.t +++ b/t/run/switchM.t @@ -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"); -- 2.7.4