Attempt to free unreferenced scalar (solved) (Allgemeines zu Perl) - Perl-Community.de

Start · Board · Anwendungen/Programme/Skripte in Perl · Allgemeines zu Perl

2025-06-16 08:14:10
Europe/Berlin
Login (Register)
- Preferences
- Statistics
Jemand zu Hause?
1 user online
9 guests

[thread]17301[/thread]

submit to reddit

Attempt to free unreferenced scalar [solved]

[solved]

Tags: perl5 Similar Threads

Readers: 22

Articles: hide open all | hide show old branches

+22 replies
bianca

2012-04-09 07:30
User since
2009-09-13
7016 articles
BenutzerIn
Morgen!
Habe diese Nacht diesen Fehler im error.log auf einem neu eingerichteten Server mit perl, v5.10.0 built for x86_64-linux-gnu-thread-multi gehabt:

Quote
Attempt to free unreferenced scalar: SV 0x1725fc8, Perl interpreter: 0xc26010 at cron.pl line 1212.

Zeile 1212:
Code (perl): (dl )

closedir $fh;
Fehler kommt nicht auf perl, v5.8.5 built for i686-linux und auch nicht auf perl, v5.10.1 (*) built for MSWin32-x86-multi-thread.
Es läuft auf allen Systemen das selbe Script.

Was bedeutet der Fehler? Wo finde ich die Ursache?
Danke
10 print "Hallo"
20 goto 10
- +3 replies
- nepos
  
  2012-04-09 09:04
  
  User since
  2005-08-17
  1420 articles
  BenutzerIn
  
  perldoc perldiag sagt:
  
  Quote
  Attempt to free unreferenced scalar
  (W internal) Perl went to decrement the reference count of a scalar to see if it would go to 0, and discovered that it had already gone to 0 earlier, and should have been freed, and
  in fact, probably was freed. This could indicate that SvREFCNT_dec() was called too many times, or that SvREFCNT_inc() was called too few times, or that the SV was mortalized when it
  shouldn't have been, or that memory has been corrupted.
  
  Eventuell ein Bug dieser Perl-Version. Schwer zu sagen.
  - +2 replies
  - bianca
    
    2012-04-09 09:24
    
    User since
    2009-09-13
    7016 articles
    BenutzerIn
    
    Danke fürs Raussuchen.
    "memory has been corrupted" verstehe ich. Könnte also vielleicht an defektem RAM liegen?
    Diese Aufrufe verstehe ich nicht, was bedeutet das?
    10 print "Hallo"
    20 goto 10
    - topeg
      
      2012-04-09 14:59
      
      User since
      2006-07-10
      2611 articles
      BenutzerIn
      
      Wann immer eine neue Variable erzeugt wird, gibt es einen Zähler dazu der Zählt wie viele Verweise es auf diese Variable gibt. Dazu gibt es Funktionen, die den Zähler Anheben oder Absenken. Die Funktionen werden bei Aktionen, welche die Referenzen anlegen oder löschen sollen, aufgerufen. Nun kann es sein das die Zähler unzulässig verändert, oder die Funktionen zu häufig oder zu selten aufgerufen werden. Das kann durch falsche Compiler Optimierungen, Fehler in der Programmierung, im Betriebssystem, oder anderen Problemen passieren. Dann kommt es zu der genannten Fehlermeldung.
      Ohne genauer in das System zu schauen kann man nicht sagen was den Fehler ausgelöst hat.
      Korrumpierter Speicher meint, dass gespeicherte Werte nicht mit den erwarteten Werten überein stimmen. Das muss nicht unbedingt ein physikalisches Problem sein, sondern kann auch an einen Softwarefehler sein.
- +2 replies
- murphy
  
  2012-04-09 15:47
  
  User since
  2004-07-19
  1776 articles
  HausmeisterIn
  
  2012-04-09T05:30:41 bianca
  [...]
  Habe diese Nacht diesen Fehler im error.log auf einem neu eingerichteten Server mit perl, v5.10.0 built for x86_64-linux-gnu-thread-multi gehabt:
  
  Quote
  Attempt to free unreferenced scalar: SV 0x1725fc8, Perl interpreter: 0xc26010 at cron.pl line 1212.
  
  [...]
  
  Was mich hier stutzig macht, ist dass Dein Perlinterpreter ein 64 bit Programm ist, die Speicheraddressen in der Fehlermeldung aber nicht breiter als 32 bit sind.
  
  Das ist entweder ein ziemlich großer Zufall oder es lässt eine fehlerhafte Datentypkonvertierung irgendwo im Perlinterpreter selbst oder in geladenem XS-Code vermuten.
  When C++ is your hammer, every problem looks like your thumb.
  - pq
    
    2012-04-09 16:41
    
    User since
    2003-08-04
    12209 articles
    Admin1
    
    führende nullen werden anscheinend weggelassen. ich kriege hier auf 2 verschiedenen 64bit-rechnern auch nur 6- oder 7-stellige hex-adressen.
    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
- bianca
  
  2012-04-09 18:31
  
  User since
  2009-09-13
  7016 articles
  BenutzerIn
  
  Danke für alle bisherigen Antworten.
  Was soll ich denn jetzt machen?
  Erstmal abwarten, ob er immer wieder auftritt?
  Und falls ja? Serveradmin? Oder kann ich selbst etwas tun, um die Ursache einzugrenzen? Habe selbst keine Adminrechte, ist ein Hostingpaket.
  10 print "Hallo"
  20 goto 10
- +5 replies
- pq
  
  2012-04-09 18:47
  User since
  2003-08-04
  12209 articles
  Admin1
  um da weiterzukommen, müsste man etwas mehr über das skript wissen und unter welchen umständen es auftritt (idealerweise reproduzieren und auf ein minimum reduzieren)
  
  hier ist z.b. ein 5.10.0 beispiel:
  http://www.nntp.perl.org/group/perl.perl5.porters/...
  
  Code: (dl )
  
  1 2 3 4 5
  
  my $_; push @{$h{x}}, 0; for (0) { for (0) {} }
  
  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
  - bianca
    
    2012-04-09 18:52
    
    User since
    2009-09-13
    7016 articles
    BenutzerIn
    
    Ist gut. Schauen, ob es wieder auftritt und dann reduziere ich mal den Code soweit wie möglich.
    10 print "Hallo"
    20 goto 10
  - +3 replies
  - bianca
    
    2012-04-10 12:34
    User since
    2009-09-13
    7016 articles
    BenutzerIn
    
    2012-04-09T16:47:07 pq
    um da weiterzukommen, müsste man etwas mehr über das skript wissen und unter welchen umständen es auftritt
    
    Welche Infos werden da genau benötigt?
    
    2012-04-09T16:47:07 pq
    (idealerweise reproduzieren und auf ein minimum reduzieren)
    
    Habe ich versucht. Gelingt nicht. Sobald ich den kleinsten möglichen Codeabschnitt in ein eigenes Script isoliere und auf die selben Daten loslasse kommt der Fehler nicht mehr.
    Im Original Umfeld kommt er nach wie vor, diese Nacht auch wieder.
    Es ist sogar ein weiterer dazu gekommen:
    
    Quote
    Attempt to free unreferenced scalar: SV 0x17dcec0, Perl interpreter: 0xcf6010 at cron.pl line 709
    
    Zeile 709:
    
    Code (perl): (dl )
    
    my $ergebnis = $modul{subname}{$modnr} -> (\%env,\%cron_settings,\%modul);
    
    2012-04-09T16:47:07 pq
    hier ist z.b. ein 5.10.0 beispiel:
    http://www.nntp.perl.org/group/perl.perl5.porters/...
    
    Code: (dl )
    
    1 2 3 4 5
    
    my $_; push @{$h{x}}, 0; for (0) { for (0) {} }
    
    Ja, das erzeugt auf diesem Server auch den Fehler:
    
    Quote
    Attempt to free unreferenced scalar: SV 0x1ea3d08, Perl interpreter: 0x1e84010
    
    Das heißt, es ist ein Perlfehler?
    Ich sehe dort im Thread nur ein
    
    Quote
    It appears to have been fixed already.
    
    Was heißt das genau? Sollte mein Provider ein Perl-Update machen? Oder kann man da ein Bugfix irgendwo laden?
    Danke
    10 print "Hallo"
    20 goto 10
    - +2 replies
    - pq
      
      2012-04-10 18:10
      
      User since
      2003-08-04
      12209 articles
      Admin1
      
      die chancen stehen gut, dass es ein bug ist, der in 5.10.1 gefixt wurde. ein update wäre sicher am sinnvollsten, aber das hängt davon ab, was das für ein rechner ist.
      oder du lebst mit der fehlermeldung, solange sonst alles funktioniert.
      
      reproduzieren und reduzieren bedeutet, dass du es zuallererst reproduzierst und dann schritt fur schritt sachen entfernst, so dass am ende sowas übrigbleibt wie in dem verlinkten bugreport.
      aber das ist halt nicht immer so einfach. und für leute, die das skript nicht kennen, ziemlich unmöglich.
      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
      - bianca
        
        2012-04-10 18:16
        
        User since
        2009-09-13
        7016 articles
        BenutzerIn
        
        2012-04-10T16:10:13 pq
        die chancen stehen gut, dass es ein bug ist, der in 5.10.1 gefixt wurde. ein update wäre sicher am sinnvollsten, aber das hängt davon ab, was das für ein rechner ist.
        oder du lebst mit der fehlermeldung, solange sonst alles funktioniert.
        
        Werde mal beim Provider nachfragen.
        
        2012-04-10T16:10:13 pq
        reproduzieren und reduzieren bedeutet, dass du es zuallererst reproduzierst und dann schritt fur schritt sachen entfernst, so dass am ende sowas übrigbleibt wie in dem verlinkten bugreport.
        aber das ist halt nicht immer so einfach. und für leute, die das skript nicht kennen, ziemlich unmöglich.
        
        Ja, ist soweit klar. Es handelt sich um ein 3500 Zeilen Skript und arbeitet nachts per Cron 27 Hauptaufgaben ab.
        Der Fehler trat gestern und heute in einer Schleife in einer der Aufgaben auf. Diese Nacht sogar in einer zweiten.
        Wenn ich die betroffene Aufgabe herauslöse sind es noch 80 Zeilen aber dann tritt der Fehler schon nicht mehr auf.
        Bevor ich das jetzt tatsächlich debugge lebe ich lieber damit.
        Vor allem: Es tritt mit demselbem Script und denselben Daten (handelt sich um eine 1:1 Spiegelung) nur in dieser Perlversion auf.
        Von daher schaue ich mal, ob ein Update möglich ist und wenn nicht, lebe ich eben damit.
        
        Danke für deine Hilfe!
        10 print "Hallo"
        20 goto 10
- +3 replies
- GwenDragon
  
  2012-04-10 15:37
  
  User since
  2005-01-17
  14848 articles
  Admin1
  
  Glaskugel meint: forkt dein Programm, benutzt es Threads, verwendest du irgendwo zirkuläre Referenzen, räumst du Variablen oder referenzen mit undef auf?
  die Drachin Gwen
  
  Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten
  - +2 replies
  - bianca
    
    2012-04-10 16:14
    
    User since
    2009-09-13
    7016 articles
    BenutzerIn
    
    2012-04-10T13:37:27 GwenDragon
    Glaskugel meint: forkt dein Programm,
    
    Ja.
    
    2012-04-10T13:37:27 GwenDragon
    benutzt es Threads,
    
    nein
    
    2012-04-10T13:37:27 GwenDragon
    verwendest du irgendwo zirkuläre Referenzen,
    
    Was genau wäre das?
    
    2012-04-10T13:37:27 GwenDragon
    räumst du Variablen oder referenzen mit undef auf?
    
    nein
    10 print "Hallo"
    20 goto 10
    - GwenDragon
      
      2012-04-10 17:22
      
      User since
      2005-01-17
      14848 articles
      Admin1
      
      Mit Devel::Cycle kannst du Referenzen, die Probleme machen, entdecken.
      die Drachin Gwen
      
      Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten
- +6 replies
- GwenDragon
  
  2012-04-10 17:27
  
  User since
  2005-01-17
  14848 articles
  Admin1
  
  Welches Linux (Distrie, Paketversion) ist es denn?
  die Drachin Gwen
  
  Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten
  - +5 replies
  - bianca
    
    2012-04-10 18:09
    
    User since
    2009-09-13
    7016 articles
    BenutzerIn
    
    2012-04-10T15:27:09 GwenDragon
    Welches Linux (Distrie, Paketversion) ist es denn?
    
    Weiß ich nicht. Kann man das abfragen ohne Admin-Rechte?
    10 print "Hallo"
    20 goto 10
    - +2 replies
    - pq
      
      2012-04-10 18:12
      
      User since
      2003-08-04
      12209 articles
      Admin1
      
      z.b.
      
      Code: (dl )
      
      1 2
      
      cat /etc/redhat-release cat /etc/debian_version
      
      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
      - bianca
        
        2012-04-10 18:19
        
        User since
        2009-09-13
        7016 articles
        BenutzerIn
        
        2012-04-10T16:12:04 pq
        
        Code: (dl )
        
        1 2
        
        cat /etc/redhat-release cat /etc/debian_version
        
        Code: (dl )
        
        1 2
        
        cat: /etc/redhat-release: No such file or directory cat: /etc/debian_version: No such file or directory
        
        10 print "Hallo"
        20 goto 10
    - +2 replies
    - GwenDragon
      
      2012-04-10 18:13
      
      User since
      2005-01-17
      14848 articles
      Admin1
      
      manchmal mit cat /etc/issue oder cat /proc/version
      oder dmesg | head -1
      Last edited: 2012-04-10 18:15:54 +0200 (CEST)
      die Drachin Gwen
      
      Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten
      - bianca
        
        2012-04-10 18:21
        
        User since
        2009-09-13
        7016 articles
        BenutzerIn
        
        2012-04-10T16:13:11 GwenDragon
        cat /etc/issue oder cat /proc/version
        oder dmesg | head -1
        
        cat: /etc/issue: No such file or directory
        cat: /proc/version: No such file or directory
        sh: dmesg: command not found
        10 print "Hallo"
        20 goto 10
- bianca
  
  2012-04-27 05:45
  
  User since
  2009-09-13
  7016 articles
  BenutzerIn
  
  Mit Perl 5.10.1 hat sich das Problem erledigt.
  Danke an alle für die Hilfe.
  10 print "Hallo"
  20 goto 10

View all threads created 2012-04-09 07:30.