diff options
| author | Tony Cook <tony@develop-help.com> | 2016-01-26 08:37:37 +1100 |
|---|---|---|
| committer | Tony Cook <tony@develop-help.com> | 2016-01-26 08:37:37 +1100 |
| commit | ef18391745841fb1df298cec3a3001be4237fb3d (patch) | |
| tree | 5ca9338639c9252bfa58ca536ca438f7ac7e48f4 /ext | |
| parent | 2330d9b7035a52417ac634721ffe07907c6edaa6 (diff) | |
| download | perl-ef18391745841fb1df298cec3a3001be4237fb3d.tar.gz | |
[perl #126632] more diagnostics
Some of this will be removed once we work out what's going on.
Diffstat (limited to 'ext')
| -rw-r--r-- | ext/XS-APItest/t/win32.t | 10 |
1 files changed, 8 insertions, 2 deletions
diff --git a/ext/XS-APItest/t/win32.t b/ext/XS-APItest/t/win32.t index fdd794a043..3e6a99eda3 100644 --- a/ext/XS-APItest/t/win32.t +++ b/ext/XS-APItest/t/win32.t @@ -40,8 +40,14 @@ SKIP: #this is testing the current state of things, specifically manifest stuff #this test can be changed if perls relationship to comctl32.dll changes my @ccver = Comctl32Version(); - cmp_ok($ccver[0], '>=', 6, "comctl32.dll is atleast version 6") - or diag "comctl32 version is (@ccver)"; + unless (cmp_ok($ccver[0], '>=', 6, "comctl32.dll is atleast version 6")) { + diag "comctl32 version is (@ccver)"; + my $resout = "resource$$.txt"; + if (system("mt -inputresource:$^X -out:$resout") == 0) { + system "type $resout >&2"; + unlink $resout; + } + } } } |