LWP::UserAgent und 401 Unauthorized (gelöst) - #168355 (Fragen zu Perl-Modulen)

bianca

2013-06-17 13:53

User since
2009-09-13
6978 Artikel
BenutzerIn

user image

2013-06-17T09:33:31 GwenDragon
Wie hast du jetzt LWP::Authen::Digest gepatcht, dass es geht?

Genau nach Linuxer's Vorschlag:

Alt:

Code (perl): (dl )

push(@pairs, "$_=" . qq("$resp{$_}"));

Neu:

Code (perl): (dl )

    if ( $_ eq 'nc' || $_ eq 'qop' || $_ eq 'algorithm' ) { # diese drei Parameter müssen ohne Anführungszeichen (http://www.ietf.org/rfc/rfc2617.txt), selbst eingebaut, siehe Bugreport: https://rt.cpan.org/Public/Bug/Display.html?id=43354 und Forum: http://www.perl-community.de/bat/poard/thread/18377
        push(@pairs, "$_=" . qq($resp{$_}));
    }
    else {
        push(@pairs, "$_=" . qq("$resp{$_}"));
    }

2013-06-17T09:33:31 GwenDragon
Welches LWP::Authen::Digest ist es, dass du gepatcht hast.

Bei mir liegt das im Unterverzeichnis /lib/perl/5.10.0/LWP/Authen

2013-06-17T09:33:31 GwenDragon
Hast du ein diff?

Nein, was ist das/wie geht das?

Versionsnummer des LWP: 6.03
Perlversion: 5.10.1

10 print "Hallo"
20 goto 10