Thread LWP::UserAgent und 401 Unauthorized (45 answers)
Opened by bianca at 2013-06-12 21:07

bianca
 2013-06-16 16:14
#168328 #168328
User since
2009-09-13
6978 Artikel
BenutzerIn

user image
2013-06-16T13:47:22 bianca
Wo wird Digest.pm im Modul intern aufgerufen?


Ich glaube, es ist diese Stelle:
Code (perl): (dl )
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18

        my $class = "LWP::Authen::\u$scheme";
        $class =~ s/-/_/g;

        no strict 'refs';
        unless (%{"$class\::"}) {
        # try to load it
        eval "require $class";
        if ($@) {
            if ($@ =~ /^Can\'t locate/) {
            $response->header("Client-Warning" =>
                      "Unsupported authentication scheme '$scheme'");
            }
            else {
            $response->header("Client-Warning" => $@);
            }
            next CHALLENGE;
        }
        }


Aber wie kann ich an dieser Stelle erzwingen, dass meine gepatchte Digest.pm geladen wird? Der Pfad von $FindBin::Bin bringt mir nur das Verzeichnis des aufrufenden Perlscripts aber nicht das des Moduls in meinem Modulverzeichnis.
Bitte um Hilfe.
10 print "Hallo"
20 goto 10

View full thread LWP::UserAgent und 401 Unauthorized