Re: p5-IO-Socket-SSL message

Thank you very much!
Certainly $SIG{__DIE__} = sub {warn @_} makes the difference.
Even you helped me already, if you could give me a clue to investigate
further the
interference of $SIG{__DIE__} = ...


Following two test programs. First one with SIG handler, second one,
without SIG handler.

With this program I get the reported message:
#!/usr/bin/perl -w

use strict;
use Cwd qw( abs_path );

my $CW_DIR = abs_path;
my $BASE_URL = 'https://www.openbsd.org/';

my $UA = "Mozilla/5.0 (X11; Ubuntu; Linux x86_64; rv:60.0)
Gecko/20100101 Firefox/60.0";

local $SIG{ __DIE__ } = sub { ## Whenever die, restore cwd
my $message = shift;
warn $message;
chdir( $CW_DIR ) or warn "Couldn't change to directory ", $CW_DIR, ": $!";
exit 1;
};

base_get();

sub base_get {
use HTTP::Tiny;

my $ua = HTTP::Tiny->new( agent => $UA );
my $response = $ua->get($BASE_URL);

die "Failed getting web page!" unless $response->{success};

print "$response->{status} $response->{reason}\n";

if ( $response->{success} and length $response->{content} ) {
print "Web page size: ", length $response->{content}, "\n";
my $content_page = $response->{content};
} else {
warn "No content!\n";
}
}

With this program everything is ok (no message):
#!/usr/bin/perl -w

use strict;
use Cwd qw( abs_path );

my $CW_DIR = abs_path;
my $BASE_URL = 'https://www.openbsd.org/';

my $UA = "Mozilla/5.0 (X11; Ubuntu; Linux x86_64; rv:60.0)
Gecko/20100101 Firefox/60.0";

base_get();

sub base_get {
use HTTP::Tiny;

my $ua = HTTP::Tiny->new( agent => $UA );
my $response = $ua->get($BASE_URL);

die "Failed getting web page!" unless $response->{success};

print "$response->{status} $response->{reason}\n";

if ( $response->{success} and length $response->{content} ) {
print "Web page size: ", length $response->{content}, "\n";
my $content_page = $response->{content};
} else {
warn "No content!\n";
}
}


Thanks and greetings!
Daniel

Quoting Alexander Bluhm <alexander.bluhm@gmx.net>:

> On Mon, Dec 10, 2018 at 08:00:16PM +0100, db@dandat.net wrote:
>> use HTTP::Tiny;
>> my $ua = HTTP::Tiny->new( agent => $UA );
>> my $response = $ua->get($BASE_URL);
>
> Is this your complete Perl program? Or just an excerpt? Can you
> provide a minimal program that triggers the bug. Obviously in your
> example $UA and $BASE_URL are undefined.
>
> I get this error:
>
> Use of uninitialized value $url in pattern match (m//) at
> /usr/libdata/perl5/HTTP/Tiny.pm line 836.
> Use of uninitialized value $url in concatenation (.) or string at
> /usr/libdata/perl5/HTTP/Tiny.pm line 836.
>
>> I'm getting this message:
>> Your vendor has not defined SSLeay macro TLS1_3_VERSION at
>> /usr/local/libdata/perl5/site_perl/IO/Socket/SSL.pm line 104.
>
> Do you have code like this somewhere in your program?
>
> $SIG{__DIE__} = sub {warn @_}
>
> I don't think your problem is OpenBSD specific. But on systems
> with OpenSSL 1.1 it cannot happen.
>
> bluhm