panic: del_backref (Allgemeines zu Perl)

[thread]14095[/thread]

panic: del_backref

Leser: 20

Articles: hide open all | hide show old branches

+8 replies
Gast bened

2009-10-03 13:06

Hallo allseits!

Ich bin gerade an der Entwicklung eines umfangreichen Template-Systems (~ 14.800 Zeilen). Seit ich das Upgrade auf Debian 5 gemacht habe (= von perl 5.8 auf perl 5.10), bekomme ich zu verschiedenen Anlässen den Fehler: "panic: del_backref at ... line x"

Am Ende kommt dann manchmal noch ein "Speicherzugriffsfehler" dazu.

Jetzt gemeinsam den Bug zu finden ist glaube ich fast unmöglich. Deswegen gebe ich nur mal den Hinweis, dass ich mit ge"tied"en Datenstrukturen arbeite. Um Memory-Leaks zu vermeiden muss ich da gelegentlich "weaken" aus "Scalar::Util" verwenden. Das Problem beim Debuggen ist halt, dass an jeder Stelle im Code Fehler auftreten können, die eigentlich aus den Klassen stammen, an die die Datenstrukturen gebunden sind. Den Ratschlag, doch einfach keine ties zu verwenden, erahne ich schon, den könnt ihr euch also sparen. Es ist jetzt eben erstmal so und ich will nicht hunderte von Codezeilen neu entwickeln, um diesen Design-Flaw (?) zu korrigieren.

Meine eigentliche Frage ist, wie ich das Programm daraufhin debuggen kann, wo der Fehler passiert. Und was soll das überhaupt für ein Fehler sein? Der Diagnose-Text ist: "Failed an internal consistency check while trying to reset a weak reference." Was genau heißt hier eine schwache Referenz zu "resetten"?

Wäre für alle Ideen und geballtes Wissen zu dem Thema sehr dankbar.
- +2 replies
- renee
  
  2009-10-03 13:15
  
  User since
  2003-08-04
  14371 Artikel
  ModeratorIn
  
  Hast Du die Möglichkeit, ein minimales Skript zusammenzustellen, das den Fehler reproduziert?
  
  Welche Datenstrukturen sind es, die Du ge"tie"ed hast? Arrays? Hashes? Skalare?
  
  Was wird denn in der Zeile gemacht, die den Fehler auslösen?
  
  Welche Perl-Version ist es genau? Perl 5.10.0 oder 5.10.1?
  OTRS-Erweiterungen (http://feature-addons.de/)
  Frankfurt Perlmongers (http://frankfurt.pm/)
  --
  
  Unterlagen OTRS-Workshop 2012: http://otrs.perl-services.de/workshop.html
  Perl-Entwicklung: http://perl-services.de/
  - Gast bened
    
    2009-10-03 13:39
    
    Für ein minimales Script habe ich im Moment noch nicht genug Ahnung davon, was eigentlich genau schief geht. Das wäre dann der nächste Schritt.
    
    Es handelt sich um ge"tied"e Hashes oder Arrays, die je nach bedarf Hashes oder Arrays zurückgeben, die wiederum ge"tied" sind.
    
    Die Zeilen, die den Fehler auslösen, sind relativ unspektakulär, vermutlich sind Perls Debuggung-Infos da einfach ein bisschen dürr:
    Beispiel 1 - Der Fehler passiert wohl eher im Aufruf von $code, was alles sein könnte.
    ----------
    my($wasInterrupted, $evalError, @thrownStuff) = catch {$code->()};
    
    Beispiel 2 - Wiederum nur der Aufruf von dem Code, wo wohl der Fehler auftritt.
    ----------
    $funcResult = $self->{function}->($self, $context, # und weitere Variabeln
    
    Es handelt sich um Perl 5.10.0.
- +3 replies
- renee
  
  2009-10-03 13:30
  
  User since
  2003-08-04
  14371 Artikel
  ModeratorIn
  
  Vielleicht könntest Du Dir das ganze mal mit gdb (Gnu Debugger) anschauen... Da gibt es dann wahrscheinlich ein paar Informationen mehr.
  OTRS-Erweiterungen (http://feature-addons.de/)
  Frankfurt Perlmongers (http://frankfurt.pm/)
  --
  
  Unterlagen OTRS-Workshop 2012: http://otrs.perl-services.de/workshop.html
  Perl-Entwicklung: http://perl-services.de/
  - +2 replies
  - Gast bened
    
    2009-10-03 13:49
    
    Das wäre mein erstes Mal, daher wäre ich für Tipps dankbar. Ich verwende gerade ein Script aus meiner Test-Suite, das den Fehler produziert. Wie ich das aus gdb starte habe ich rausgefunden, aber wie entlocke ich gdb weitere Informationen außer dem Exit-Status? Brauche ich dafür eine spezielle Perl-Version mit debugging symbols?
    - renee
      
      2009-10-04 12:42
      
      User since
      2003-08-04
      14371 Artikel
      ModeratorIn
      
      Kannst Du das Testskript und die notwendigen Dateien posten? Oder ist das was geheimes?
      
      Ich habe mal in den Perl-Sourcen gestöbert und der Fehler wird anscheinend ausgegeben wenn eine "weaken" Referenz gelöscht wird und die Referenz aber noch im (internen) Backref-Array steht.
      
      Deshalb wäre es gut, ein Skript zu haben, das den Fehler reproduzieren kann.
      OTRS-Erweiterungen (http://feature-addons.de/)
      Frankfurt Perlmongers (http://frankfurt.pm/)
      --
      
      Unterlagen OTRS-Workshop 2012: http://otrs.perl-services.de/workshop.html
      Perl-Entwicklung: http://perl-services.de/
- +2 replies
- defun
  
  2009-10-04 03:29
  
  User since
  2008-07-18
  28 Artikel
  BenutzerIn
  
  Ah, zumindest ein User zu dem eine E-Mail-Adresse eingetragen war, auf die ich noch zugreifen konnte. Ich bin also "bened", nur jetzt eben wieder in registrierter Form.
  
  Falls ein Administrator Lust hat: Es müsste noch einen User "bened" in der Datenbank geben, der vermutlich eine @mac.com-Adresse oder eine @calypse.de-Adresse hat. Zumindest erstere dürfte gar nicht mehr existieren. Falls das Beweis genug ist, könnte man mir Zugriff auf diesen Account gewähren, denn den habe ich ganz früher mal registriert. (Passwort lange vergessen.)
  
  Zum Thema. Ich schätze es ist recht hoffnungslos. Vermutlich ist es ein reiner Perl-Fehler, aber solange ich so ein kompliziertes tie-Gebilde verwende, werde ich wohl immer nur Scherereien haben. Zeit, das Branch-Feature von git auszuprobieren und das Design ein- für allemal zu fixen. Trotzdem danke für die Antworten :)
  - pq
    
    2009-10-04 17:29
    
    User since
    2003-08-04
    12208 Artikel
    Admin1
    
    die email-adresse von user "bened" ist aber eine andere, keine der von dir angegebenen domains...
    hast du schonmal versucht, die passwort-zurücksetzen-funktion zu benutzen? die domain der email-adresse gibt es jedenfalls, das ist wohl eine private homepage.
    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

View all threads created 2009-10-03 13:06.