Net::DNS::Resolver::Base - Problem mit IO::Socket::Inet6 (Fragen zu Perl-Modulen)

[thread]13257[/thread]

Net::DNS::Resolver::Base - Problem mit IO::Socket::Inet6

Leser: 18

Articles: hide open all | hide show old branches

+25 replies
Gast dude

2009-03-20 11:59
Hi Leute
ich benutze Net::DNS::Resolver::Baseund das funktionierte 1a. Und urplötzlich wirft dieser einen Fehler aus:
Code: (dl )

Can't locate IO/Socket/INET6.pm in @INC (@INC contains: ./ ./module ./module/CPAN /etc/perl /usr/local/lib/perl/5.8.8 /usr/local/share/perl/5.8.8 /usr/lib/perl5 /usr/share/perl5 /usr/lib/perl/5.8 /usr/share/perl/5.8 /usr/local/lib/site_perl .) at module/CPAN/Net/DNS/Resolver/Base.pm line 61.
Ich habe den Fehler zu dem BEGIN Block in Base.pm zurückverfolgt. Dort steht folgender Text:
Code (perl): (dl )

1 2 3 4 5 6 7 8 9

BEGIN { if ( eval {require IO::Socket::INET6; IO::Socket::INET6->VERSION("2.00");} ) { $has_inet6=1; }else{ $has_inet6=0; } }
Der Eval block gibt defintiv nichts zurück, da IO::Socket::INET6 nicht installiert und verfügbar ist. Mir geht es quasi nur darum diese Fehlermeldung zu unterdrücken, den ansonsten arbeitet das Modul fehlerfrei und gibt auch brav die zurückverfolgte DNS der IP aus.

Vielleicht interessiert euch der Kontext indem ich das Modul ausführe.
Ein CGI auf dem Webserver, der mittels CGI::Carp::set_die_handler eine Funktion ausführer (Mail und Fehlermeldung an den Browser). Das komische ist, die Meldung kommt per mail und wird im Browser angezeigt, nicht aber im Errorlog des Webservers.

Hilfe wäre top, es hagelt bei mir Emails. Ich habe schon versucht den BEGIN Block zu verändern, indem ich die IF-Else rausgelöscht habe und direkt has_inet6=0; reingeschrieben habe, aber dann funktioniert Base.pm gar nicht mehr..

Danke.

----
Modedit Gwendragon: falsches Package korrigiert
----
Last edited: 2009-03-20 17:34:23 +0100 (CET)
- pq
  
  2009-03-20 12:22
  User since
  2003-08-04
  12208 Artikel
  Admin1
  sehr komisch, da das eval ja genau diese fehlermeldung untdrücken sollte.
  ist das "nur" eine warnung oder stirbt dann das script?
  und wenn du wirklich nur
  
  Code (perl): (dl )
  
  1 2 3
  
  BEGIN { $has_inet6 = 0; }
  
  schreibst, gehts auch nicht?
  Always code as if the guy who ends up maintaining your code will be a violent psychopath who knows where you live. -- Damian Conway in "Perl Best Practices"
  lesen: Wie frage ich & perlintro brian's Leitfaden für jedes Perl-Problem
- +10 replies
- pq
  
  2009-03-20 12:25
  
  User since
  2003-08-04
  12208 Artikel
  Admin1
  
  andere idee, hast du irgendwelche neuen module kürzlich installiert?
  vielleicht welche, die das errorhandling irgendwie verändern...
  Always code as if the guy who ends up maintaining your code will be a violent psychopath who knows where you live. -- Damian Conway in "Perl Best Practices"
  lesen: Wie frage ich & perlintro brian's Leitfaden für jedes Perl-Problem
  - +9 replies
  - murphy
    
    2009-03-20 12:43
    
    User since
    2004-07-19
    1776 Artikel
    HausmeisterIn
    
    2009-03-20T11:25:01 pq
    andere idee, hast du irgendwelche neuen module kürzlich installiert?
    vielleicht welche, die das errorhandling irgendwie verändern...
    
    Der OP schreibt doch, dass der Code
    dude
    [...] auf dem Webserver, der mittels CGI::Carp::set_die_handler eine Funktion ausführer [...]
    läuft -- könnte also nicht gerade dieses Modul das Problem hervorrufen?
    Last edited: 2009-03-20 12:44:43 +0100 (CET)
    When C++ is your hammer, every problem looks like your thumb.
    - +8 replies
    - Gast dude
      
      2009-03-20 12:46
      
      Ja darin liegt der Hund begraben, weil eben diese Funktion $SIG{__DIE__} verändert.
      - +7 replies
      - pq
        
        2009-03-20 12:50
        
        User since
        2003-08-04
        12208 Artikel
        Admin1
        
        dann verstehe ich nicht, wieso mein fix mit local $SIG{__DIE__} nicht funktioniert.
        du könntest versuchen, in den die-handler von CGI::Carp folgendes am anfang einzufügen (wie hier vorgeschlagen):
        
        Code (perl): (dl )
        
        return if $^S;
        
        Always code as if the guy who ends up maintaining your code will be a violent psychopath who knows where you live. -- Damian Conway in "Perl Best Practices"
        lesen: Wie frage ich & perlintro brian's Leitfaden für jedes Perl-Problem
        
        +6 replies
        
        Gast dude
        
        2009-03-20 13:49
        
        Hilft leider auch nichts, es tritt immer noch der Fehler auf.
        
        Code (perl): (dl )
        
        1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18
        
        use CGI::Carp qw(set_die_handler); BEGIN { sub handle_errors { return if $^S; my $msg = shift; print CGI::header(); print 'Software error:<br/>'; print $msg; # send mail use Mail::Sendmail; # ........... } } set_die_handler(\&handle_errors); }
        
        Was ich auch merkwürdig finde, dass $^S nicht einmal in CGI::Carp auftaucht, nichtmal bei fatalsToBrowser. Allerdings erkenne ich da eine Textfunktion auf eval (bei CGI::Carp::die - zeile 425 - 458):
        
        Code (perl): (dl )
        
        1 2 3 4 5 6 7 8 9 10 11
        
        if ( ineval() ) { if (!ref($arg)) { $arg = join("",($arg,@rest)) || "Died"; my($file,$line,$id) = id(1); $arg .= " at $file line $line.\n" unless $arg=~/\n$/; realdie($arg); } else { realdie($arg,@rest); } }
        
        ineval sieht so aus:
        
        Code (perl): (dl )
        
        1 2 3
        
        sub ineval { (exists $ENV{MOD_PERL} ? 0 : $^S) || _longmess() =~ /eval [\{\']/m }
        
        Die Lösung für das Problem ist dann dieses:
        
        Code (perl): (dl )
        
        $main::SIG{__DIE__} = $handler;
        
        wird zu
        
        Code (perl): (dl )
        
        1 2 3 4 5
        
        $main::SIG{__DIE__} = sub { if( !ineval() ) { $handler->(); } };
        
        in CGI::Carp::set_die_handler
        
        Kann man das so lassen oder ist das gegen irgendwelche Richtlinien?
        
        Gast dude
        
        2009-03-20 13:52
        
        Haha zu früh gefreut. Wenn ich das so lasse wird keine Fehlermeldung mehr übergeben :-(
        
        +4 replies
        
        pq
        
        2009-03-20 15:53
        
        User since
        2003-08-04
        12208 Artikel
        Admin1
        
        versuch mal im falle von ineval() ein die() zu machen statt einfach nur ein return.
        Always code as if the guy who ends up maintaining your code will be a violent psychopath who knows where you live. -- Damian Conway in "Perl Best Practices"
        lesen: Wie frage ich & perlintro brian's Leitfaden für jedes Perl-Problem
        
        +3 replies
        
        Gast dude
        
        2009-03-20 16:13
        
        Naja war ja relativ offensichtlich worin der Fehler bestand.
        im custom error handler wird ja die Fehlermessage mit shift empfangen, deshalb sollte man diese vllt auch übergeben ;-)
        
        Ein
        
        Code (perl): (dl )
        
        1 2 3 4 5 6
        
        $main::SIG{__DIE__} = sub { my $arg = shift; if( !ineval() ) { $handler->($arg); } };
        
        löst das Problem. Jetzt bin ich rundum zufrieden, bis zum nächsten Fehler versteht sich ;-)
        
        +2 replies
        
        pq
        
        2009-03-20 16:17
        
        User since
        2003-08-04
        12208 Artikel
        Admin1
        
        ich glaub, es muss trotzdem ein die() rein, wenn ineval() wahr ist. damit das eval die variable $@ richtig setzen kann.
        Always code as if the guy who ends up maintaining your code will be a violent psychopath who knows where you live. -- Damian Conway in "Perl Best Practices"
        lesen: Wie frage ich & perlintro brian's Leitfaden für jedes Perl-Problem
        
        Gast dude
        
        2009-03-20 16:39
        
        Ok, habe jetzt ein realdie hinzugefügt. Kann aber keine Veränderung feststellen. Was sollte denn passieren
- +2 replies
- pq
  
  2009-03-20 12:33
  User since
  2003-08-04
  12208 Artikel
  Admin1
  so, meine vermutung ist, dass irgendwo $SIG{__DIE__} von einem anderen modul gesetzt wird.
  versuch mal:
  
  Code (perl): (dl )
  
  1 2 3 4
  
  BEGIN { local $SIG{__DIE__} = sub { die $_[0] }; # if abfrage mit eval wie vorher }
  
  damit wird in diesem block der die-handler auf den üblichen handler gesetzt.
  
  jetzt bleibt noch rauszufinden, welches neue modul den die-handler wohl verändert hat. kann man evtl. mit B::Deparse rausfinden, aber vielleicht fällt dir ja ein, ob und was du kürzlich installiert hast.
  
  edit: siehe auch https://lists.oetiker.ch/pipermail/mrtg-developers..., das sieht nach einem ähnlichen problem mit einem fehlerhaften die-handler aus.
  Last edited: 2009-03-20 12:37:30 +0100 (CET)
  Always code as if the guy who ends up maintaining your code will be a violent psychopath who knows where you live. -- Damian Conway in "Perl Best Practices"
  lesen: Wie frage ich & perlintro brian's Leitfaden für jedes Perl-Problem
  - Gast dude
    
    2009-03-20 12:45
    
    also ich habe nur CGI::Carp geupdated, da ich gerne set_die_handler verwenden will.
    local $SIG .. funktioniert für das Base.pm immer noch nicht.
    
    ALLERDINGS wenn ich im aufrufenden Script CGI::Carp::set_die_handler (was ja die $SIG{__DIE__} verändert) nicht benutze sondern einfach nur CGI::Carp::fatalsToBrowser dann taucht der Fehler nicht auf und wird auch nicht an den Browser geschickt. Es muss also damit zu tun haben. Nur das wie kann ich nicht beantworten.
- +9 replies
- GwenDragon
  
  2009-03-20 12:58
  
  User since
  2005-01-17
  14532 Artikel
  Admin1
  
  Guest dude
  Hi Leute
  ich benutze Net::Base::Resovler
  Wie heißt das Modul!?
  Meinst du Net::DNS::Resolver::Base?
  die Drachin, Gwendolyn
  
  Unterschiedliche Perl-Versionen auf Windows (fast wie perlbrew) • Meine Perl-Artikel
  - +8 replies
  - Gast dude
    
    2009-03-20 13:01
    
    oh klar sorry, da war wohl der Wurm drin :-(
    - +7 replies
    - GwenDragon
      
      2009-03-20 16:34
      
      User since
      2005-01-17
      14532 Artikel
      Admin1
      
      Guest dude
      oh klar sorry, da war wohl der Wurm drin :-(
      
      ----
      Modedit Gwendragon: Titel geändert
      ----
      die Drachin, Gwendolyn
      
      Unterschiedliche Perl-Versionen auf Windows (fast wie perlbrew) • Meine Perl-Artikel
      - +6 replies
      - Gast dude
        
        2009-03-20 16:41
        
        Danke, kannst du das auch noch im 1. Post korrigieren? ;-)
        
        +5 replies
        
        LanX-
        
        2009-03-20 19:04
        
        User since
        2008-07-15
        1000 Artikel
        BenutzerIn
        
        Guest dude
        Danke, kannst du das auch noch im 1. Post korrigieren? ;-)
        
        warum besorgst du dir eigentlich kein Login, dann kannst dus künftig selber!
        
        Z.B. in einem Post hast du eine Bandwurm-Zeile ohne Umbruch produziert, die das ganze Design zerschießt, sollen dass dann immer die Mods reparieren?
        me and my writeups
        
        +2 replies
        
        pq
        
        2009-03-20 19:23
        
        User since
        2003-08-04
        12208 Artikel
        Admin1
        
        2009-03-20T18:04:57 LanX-
        Z.B. in einem Post hast du eine Bandwurm-Zeile ohne Umbruch produziert, die das ganze Design zerschießt
        
        hm? wo? kannst du mal nen screenshot machen? wenn es irgendwo das design zerschiesst, ist ein bug im CSS oder der browser kann kein overflow-scrolling...
        Always code as if the guy who ends up maintaining your code will be a violent psychopath who knows where you live. -- Damian Conway in "Perl Best Practices"
        lesen: Wie frage ich & perlintro brian's Leitfaden für jedes Perl-Problem
        
        LanX-
        
        2009-03-20 19:32
        
        User since
        2008-07-15
        1000 Artikel
        BenutzerIn
        
        "Design zerschießen" war vielleicht falsch ausgedrückt.
        
        In http://www.perl-community.de/bat/poard/message/119610 geht bei mir (Threadansicht!) die "Allerdings"-zeile bis zum "Es..." ("...muss") über 3 Bildschirmbreiten.
        
        D.h. um zum Antwortbutton zu kommen muss ich ewig scrollen, und das natürlich bei allen Posts.
        
        FF3/XP, frisch installiert!
        
        EDIT: hmm bei näherer Betrachtung liegts an der Fehlermeldung im ersten Post. Code wird nicht umgebrochen... Sorry Dude!
        
        UPDATE: es wäre ne überlegung wert, überlangen code in ein scrollbares div zu packen ... die monks-lösung mit den + Umbrüchen fänd ich eher sch...
        Last edited: 2009-03-20 19:42:26 +0100 (CET)
        me and my writeups
        
        +2 replies
        
        Gast dude
        
        2009-03-21 14:44
        
        2009-03-20T18:04:57 LanX-
        Guest dude
        Danke, kannst du das auch noch im 1. Post korrigieren? ;-)
        
        warum besorgst du dir eigentlich kein Login, dann kannst dus künftig selber!
        Entschuldige, aber ich bin froh, wenn man sich nicht bei jedem Forum wegen einer Frage registrieren muss. Dieser Wahn ist eine Entwicklung die ich nicht unterstütze. Falls die Perl-Community auf OpenID u.ä. setzt würde ich das als sehr zukunftsweisend empfinden.
        
        pq
        
        2009-03-21 14:46
        
        User since
        2003-08-04
        12208 Artikel
        Admin1
        
        Guest dude
        Falls die Perl-Community auf OpenID u.ä. setzt würde ich das als sehr zukunftsweisend empfinden.
        
        da bin ich dran, ja, ich muss es nur noch fertig entwickeln. die openid-kommunikation steht, es muss noch am datenbankmodell gefeilt werden.
        Always code as if the guy who ends up maintaining your code will be a violent psychopath who knows where you live. -- Damian Conway in "Perl Best Practices"
        lesen: Wie frage ich & perlintro brian's Leitfaden für jedes Perl-Problem
- betterworld
  
  2009-03-21 22:24
  
  User since
  2003-08-21
  2613 Artikel
  ModeratorIn
  
  Move from Allgemeines zu Perl to Netzwerkprogrammierung und Netzwerke mit Perl
  Lieblingsmodule: IPC::System::Simple, Path::Class
- betterworld
  
  2009-03-21 22:31
  
  User since
  2003-08-21
  2613 Artikel
  ModeratorIn
  
  Move from Netzwerkprogrammierung und Netzwerke mit Perl to Allgemeines zu Perl
  
  Sorry, alles in allem ist dieser Thread in Allgemeines wohl doch am besten aufgehoben -- verschieben rückgängig.
  Lieblingsmodule: IPC::System::Simple, Path::Class

View all threads created 2009-03-20 11:59.