[perl #121672] [PATCH] Avoid double quotes in switchM.t runperl args.

# New Ticket Created by  Craig A. Berry 
# Please include the string:  [perl #121672]
# in the subject line of all future correspondence about this issue. 
# <URL: https://rt.perl.org/Ticket/Display.html?id=121672 >


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.

N.B.  This modifies the same tests touched by the patch in 
[perl #121662] so whichever gets applied last needs to be done
manually.  The one here is just a replace of:

, '-e "print t2::id()"']

with

], prog => 'print t2::id()'

in 2 places.

$ perl -V
Summary of my perl5 (revision 5 version 19 subversion 11 patch v5.19.10-80-g25fdf52) configuration:
  Snapshot of: 25fdf527591b902c99f699bb9d51d4f6ce49a6fc
  Platform:
    osname=VMS, osvers=V8.4, archname=VMS_IA64-thread-multi
    uname='VMS alma V8.4 HP rx2600  (1.50GHz/6.0MB)'
    config_args='-"des" -"Dusedevel" -"Duseithreads"'
    hint=none, useposix=false, d_sigaction=define
    useithreads=define, usemultiplicity=define
    use64bitint=undef, use64bitall=undef, uselongdouble=undef
    usemymalloc=undef, bincompat5005=undef
  Compiler:
    cc='CC/DECC', ccflags ='/Include=[]/Standard=Relaxed_ANSI/Prefix=All/Obj=.obj /NOANSI_ALIAS/float=ieee/ieee=denorm/NAMES=(SHORTENED)/Define=_USE
_STD_STAT=1',
    optimize='/NoList',
    cppflags='undef'
    ccversion='70390020', gccversion='', gccosandvers='undef'
    intsize=4, longsize=4, ptrsize=4, doublesize=8, byteorder=1234
    d_longlong=define, longlongsize=8, d_longdbl=define, longdblsize=16
    ivtype='long', ivsize=4, nvtype='double', nvsize=8, Off_t='off_t', lseeksize=8
    alignbytes=8, prototype=define
  Linker and Libraries:
    ld='Link/nodebug', ldflags ='/NoTrace/NoMap'
    libpth=/sys$share /sys$library
    libs=
    perllibs=
    libc=(DECCRTL), so=exe, useshrplib=true, libperl=undef
    gnulibc_version='undef'
  Dynamic Linking:
    dlsrc=dl_vms.xs, dlext=exe, d_dlsymun=undef, ccdlflags=''
    cccdlflags='', lddlflags='/Share'


Characteristics of this PERLSHR image:
  Compile-time options: HAS_TIMES HAVE_INTERP_INTERN MULTIPLICITY
                        PERLIO_LAYERS PERL_DONT_CREATE_GVSV
                        PERL_EXTERNAL_GLOB PERL_HASH_FUNC_ONE_AT_A_TIME_HARD
                        PERL_IMPLICIT_CONTEXT PERL_MALLOC_WRAP
                        PERL_NEW_COPY_ON_WRITE PERL_PRESERVE_IVUV USE_IEEE
                        USE_ITHREADS USE_LARGE_FILES USE_LOCALE
                        USE_LOCALE_COLLATE USE_LOCALE_CTYPE
                        USE_LOCALE_NUMERIC USE_PERLIO USE_PERL_ATOF
                        USE_REENTRANT_API VMS_DO_SOCKETS
                        VMS_SHORTEN_LONG_SYMBOLS
  Locally applied patches:
	SMOKE25fdf527591b902c99f699bb9d51d4f6ce49a6fc
  Built under VMS
  Compiled at Apr 15 2014 10:12:13
  %ENV:
    PERLSHR="perl_root:[000000]perlshr.exe"
    PERL_ROOT="MDA0:[CRAIG.smoke.blead.]"
  @INC:
    /perl_root/lib/site_perl/VMS_IA64-thread-multi
    /perl_root/lib/site_perl
    /perl_root/lib/VMS_IA64-thread-multi/5_19_11
    /perl_root/lib
    .


________________________________________
Craig A. Berry
mailto:craigberry@mac.com

"... getting out of a sonnet is much more
 difficult than getting in."
                 Brad Leithauser

• [perl #121672] [PATCH] Avoid double quotes in switchM.t runperl args. by Craig A . Berry