Thread Net::FTP Can't locate object method "del_session" (12 answers)
Opened by bianca at 2020-04-01 12:25

bianca
 2020-04-01 12:25
#191672 #191672
User since
2009-09-13
6576 articles
BenutzerIn

user image
Hallo!
Eine Frage zu CPAN:Net::FTP: und zwar habe ich mit folgendem Script auf neuerem Perl >= 5.30.1 ein Problem, dass mit Perl 5.18.4 nicht auftritt:
Code (perl): (dl )
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
#!/usr/bin/perl
use strict;
use warnings;

print "Version Net::FTP: ".$Net::FTP::VERSION."\n";

my $erg = losgehts();
print "Ergebnis: $erg\n";

sub losgehts {
    use Net::FTP;
    use IO::Socket::SSL qw(SSL_VERIFY_CLIENT_ONCE);
    my @hosts = (
        {
            url     => 'url.url.de',
            user    => 'benutzername',
            passw   => 'passwort',
        },
    );
    foreach my $ref (@hosts) {
        my $ftp = Net::FTP->new(
            $ref->{url},
            Debug           => 0,
            Passive         => 1,
            SSL_verify_mode => SSL_VERIFY_CLIENT_ONCE,
        ) or return 'bei '.$ref->{url}.' ist Net::FTP->new() fehlgeschlagen';
        $ftp->starttls() or return 'bei '
            .$ref->{url}
            .' ist $ftp->starttls() fehlgeschlagen'
        ;
        print "Zeile ".__LINE__."\n";
        $ftp->login($ref->{user},$ref->{passw}) or return 'bei '
            .$ref->{url}
            .' ist $ftp->login($ref->{user},$ref->{passw}) fehlgeschlagen'
        ;
        print "Zeile ".__LINE__."\n";
        my $hash_ref = $ftp->dir() or return 'bei '
            .$ref->{url}.' ist $ftp->dir(\'/\') fehlgeschlagen'
        ;
        print "Zeile ".__LINE__."\n";
    }
    print "Zeile ".__LINE__."\n";
}

Perl 5.18.4:
Quote
Version Net::FTP: 3.11
Zeile 31
Zeile 36
Zeile 40
Zeile 42
Ergebnis: 1


Perl 5.30.1:
Quote
Version Net::FTP: 3.11
Zeile 31
Zeile 36
Can't locate object method "del_session" via package "Net::FTP::_SSL_SingleSessionCache" at C:/Strawberry/perl/vendor/lib/IO/Socket/SSL.pm line 3042.

Ich bitte um Hilfe zu verstehen, warum dieser Fehler auftritt und wie man den beheben kann.
Last edited: 2020-04-01 12:26:59 +0200 (CEST)
10 print "Hallo"
20 goto 10

View full thread Net::FTP Can't locate object method "del_session"