#3 fix for trunk/scriptdist/ test failure

[Anonymous]

fix against http://brian-d-foy.svn.sourceforge.net/viewvc/brian-d-foy/trunk/scriptdist/
http://brian-d-foy.svn.sourceforge.net/viewvc/brian-d-foy/trunk/scriptdist.tar.gz?view=tar

This is what it fixes
D:\scriptdist>perl Makefile.PL
Set up gcc environment - 3.4.5 (mingw-vista special r3)
Checking if your kit is complete...
Warning: the following files are missing in your kit:
t/pod_coverage.t
Please inform the author.
Writing Makefile for scriptdist

D:\scriptdist>nmake test

Microsoft (R) Program Maintenance Utility Version 1.50
Copyright (c) Microsoft Corp 1988-94. All rights reserved.

C:\Perl\bin\perl.exe -MExtUtils::Command -e "cp" -- scriptdist blib\script\scriptdist
pl2bat.bat blib\script\scriptdist
C:\Perl\bin\perl.exe "-MTest::Manifest" "-e" "run_t_manifest(0, 'blib\lib', 'blib\arch', )"
test file [pod_coverage.t] does not exist! Skipping! at -e line 1
t\compile.t .. ok
t\pod.t ...... ok
t\prereq.t ... Set up gcc environment - 3.4.5 (mingw-vista special r3)
t\prereq.t ... ok
t\run.t ...... 1/43
# Failed test 'scriptdist is executable'
# at t\run.t line 27.
'..' is not recognized as an internal or external command,
operable program or batch file.

# Failed test 'Target directory exists'
# at t\run.t line 54.

# Failed test 'Test directory exists'
# at t\run.t line 55.

# Failed test 'File test_script.d\Makefile.PL exists'
# at t\run.t line 61.

# Failed test 'File test_script.d\Changes exists'
# at t\run.t line 61.

# Failed test 'File test_script.d\MANIFEST exists'
# at t\run.t line 61.

# Failed test 'File test_script.d\MANIFEST.SKIP exists'
# at t\run.t line 61.

# Failed test 'File test_script.d\INSTALL exists'
# at t\run.t line 61.

# Failed test 'File test_script.d\.cvsignore exists'
# at t\run.t line 61.

# Failed test 'File test_script.d\.releaserc exists'
# at t\run.t line 61.

# Failed test 'File test_script.d\test_script exists'
# at t\run.t line 61.

# Failed test 'File test_script.d\t\compile.t exists'
# at t\run.t line 61.

# Failed test 'File test_script.d\t\pod.t exists'
# at t\run.t line 61.

# Failed test 'File test_script.d\t\prereq.t exists'
# at t\run.t line 61.

# Failed test 'File test_script.d\t\test_manifest exists'
# at t\run.t line 61.

# Failed test 'Opened replacements test file
# '
# at t\run.t line 67.
readline() on closed filehandle $fh at t\run.t line 68.
Use of uninitialized value in pattern match (m//) at t\run.t line 70.

# Failed test 'Replacement test has script name'
# at t\run.t line 70.
# undef
# doesn't match '(?-xism:file for test_script)'
Use of uninitialized value in pattern match (m//) at t\run.t line 71.

# Failed test 'Replacement test has version'
# at t\run.t line 71.
# undef
# doesn't match '(?-xism:version 0\.10)'
Use of uninitialized value in pattern match (m//) at t\run.t line 72.

# Failed test 'Change to program directory'
# at t\run.t line 76.
# Looks like you planned 43 tests but ran 42.
# Looks like you failed 19 tests of 42 run.
t\run.t ...... Dubious, test returned 19 (wstat 4864, 0x1300)
Failed 20/43 subtests
(less 15 skipped subtests: 8 okay)

Test Summary Report
-------------------
t\run.t (Wstat: 4864 Tests: 42 Failed: 19)
Failed tests: 2, 9-25, 27
Non-zero exit status: 19
Parse errors: Bad plan. You planned 43 tests but ran 42.
Files=4, Tests=45, 6 wallclock secs ( 0.02 usr + 0.02 sys = 0.03 CPU)
Result: FAIL
Failed 1/4 test programs. 19/45 subtests failed.
NMAKE : fatal error U1077: 'C:\WINDOWS\system32\cmd.exe' : return code '0x13'
Stop.

D:\scriptdist>

[Nobody/Anonymous]

[Nobody/Anonymous]

forgot to escape $^X

-my \$output = `$^X -c \$file 2>&1`;
+my \$output = `\$^X -c \$file 2>&1`;