Re^2: errno in XS not propagating to $!

The compiler that built ActivePerl and your compiler use different C runtime libraries - and that *can* definitely be nasty - though, mostly, it's not an issue. And I think it's quite possibly *not* an issue here.

I've confirmed that the perl.exe process has two CRTL DLLs loaded: msvcr71.dll (7.10.6030.0000) and msvcrt.dll (7.00.2600.2180).

I surmise that both of these export errno and perl58.dll is linking to one and the Net/SSLeay.dll is linking to the other. Thus setting errno in Net/SSLeay.dll does not alter the value of $! in Perl. Indeed now I write this I seem to recall having heard of this exact issue elsewhere.

Anyway, none of this will help you much - except perhaps for the notion that your problem lies with Test::Exception, rather than Net::SSLeay per se.

Thanks, but having placed diagnostic prints of errno and $! just before the and after the return from the XS code and I'm sure I've isolated (and circumvented) this problem. I think it will turn out to be the first of many getting Net::SSLeay to work (see Legacy use of splice() as lvalue).

Comment on Re^2: errno in XS not propagating to $! - breaks Net::SSLeay

Replies are listed 'Best First'.

Re^3: errno in XS not propagating to $! - breaks Net::SSLeay
by syphilis (Archbishop) on Feb 16, 2008 at 18:05 UTC

use ExtUtils::MakeMaker;

WriteMakefile(       
  NAME => 'Net::SSLeay',
  VERSION_FROM => 'lib/Net/SSLeay.pm',
);
[download]

perl Makefile.PL INC="-IC:/path/to/ssl/include" LIBS="-LC:/path/to/ssl/lib -lssl -lcrypto"

dmake

dmake test

perl -Mblib tests.txt

use warnings;
use Test::Harness;

my @files = qw (
t/external/08_external.t
t/handle/external/10_destroy.t
t/handle/external/50_external.t
t/handle/local/05_use.t
t/local/00_ptr_cast.t
t/local/01_pod.t
t/local/02_pod_coverage.t
t/local/03_use.t
t/local/04_basic.t
t/local/05_passwd_cb.t
t/local/06_tcpecho.t
t/local/07_sslecho.t
t/local/08_pipe.t
t/local/15_bio.t
t/local/20_autoload.t
t/local/30_error.t
t/local/31_rsa_generate_key.t
t/local/35_ephemeral.t
t/local/50_digest.t
t/local/kwalitee.t
);

for(@files) {$_ = 'C:/_32/comp/Net-SSLeay-1.32/' . $_}

Test::Harness::runtests(@files);
[download]

C:/_32/comp/Net-SSLeay-1.32/t/handle/external/10_destroy.....NOK 3#   
+Failed test
 'correct response'
#   at C:/_32/comp/Net-SSLeay-1.32/t/handle/external/10_destroy.t line
+ 36.
#                   undef
#     doesn't match '(?s-xim:^HTTP/1)'
C:/_32/comp/Net-SSLeay-1.32/t/handle/external/10_destroy.....ok 5/6# L
+ooks like you failed 1 test of 6.
[download]

[reply]
[d/l]
[select]


more useful options
	PerlMonks

Re^2: errno in XS not propagating to $! - breaks Net::SSLeay