Net::SMTP->starttls() und $/ (gelöst) (Fragen zu Perl-Modulen)

[thread]19762[/thread]

Net::SMTP->starttls() und $/ [gelöst]

Tags: perl5 Ähnliche Threads

Leser: 11

Articles: hide open all | hide show old branches

+5 replies
bianca

2015-08-19 09:10

User since
2009-09-13
7016 Artikel
BenutzerIn

Guten Morgen!
Habe gerade nach ewig langer Sucherei festgestellt, dass Net::SMTP->starttls() auf Windows 7 64 Bit mit Perl 5.18.4 zu einem Problem führt, wenn man an ganz anderer Stelle aber im selben Kontextblock ein undef local $/ macht.
Das Problem äußert sich so, dass der Prozess perl.exe auf ca. 80 % ansteigt, dann langsam auf 0 fällt und da bleibt. Er beendet nicht. Das Perl bleibt hängen, es gibt keinerlei Fehlermeldung und auch über Debug keinen Hinweis.

Net::SMTP Version 3.05
IO::Socket::SSL Version 2.012

Abhilfe: das undef local $/ einen Block tiefer setzen, z.B. in ein if (open(my $fh,'<',"$file")) {...}

Ist das ein Bug im Modul? Oder hat das einen Sinn?

Editiert von bianca: Abhilfe ergänzt
Last edited: 2015-08-19 09:12:07 +0200 (CEST)
10 print "Hallo"
20 goto 10
- +4 replies
- Raubtier
  
  2015-08-19 10:52
  
  User since
  2012-05-04
  1083 Artikel
  BenutzerIn
  
  Naja, $/ ist ja eine globale Variable und wahrscheinlich wird Net::SMTP irgendwo versuchen eine Zeile zu lesen, die dann durch das umgesetzte $/ eben keine Zeile mehr ist, sondern eben versucht alles zu lesen.
  
  Nun kann man natürlich fragen, ob das Modul davon ausgehen darf, dass $/ "normal" gesetzt ist ober ob es selbst dafür Sorge tragen muss. Andererseits macht man sowas wie "local $/" ja normalerweise auch nur in einem ganz begrenzten Bereich, sodass ich eher sagen würde, dass man mit den Konsequenzen leben muss, wenn man eine globale Variablen vor Aufruf einer Funktion umsetzt.
  - +3 replies
  - bianca
    
    2015-08-20 07:23
    
    User since
    2009-09-13
    7016 Artikel
    BenutzerIn
    
    Ich denke, das local hat mich "geblendet". Und hab dabei ganz übersehen, dass sich das im selben Block befindet. Das ist aber auch schwer zu erkennen, wenn man die Logik im einen und die Technik im anderen Script gekapselt hat. Gefunden hab ich das nur durch zeilenweises Rückbauen auf den letzten funktionierenden Stand des Codes. Eine Sch.... Arbeit.
    Ist aber mein Fehler, weil ich an der Stelle nicht mit package arbeite.
    
    Dennoch bin ich der Meinung, wenn Code auf globale Dinge zugreift muss Code auch sicherstellen, dass diese Dinge vorhanden sowie plausibel sind und andernfalls eine Meldung ausgeben und nicht einfach in die Unendlichkeit laufen. Ätzend sowas.
    10 print "Hallo"
    20 goto 10
    - +2 replies
    - Raubtier
      
      2015-08-20 11:08
      
      User since
      2012-05-04
      1083 Artikel
      BenutzerIn
      
      Naja, ich weiß nicht. Dann müsste man ja auch bei jedem Array-Zugriff erstmal testen, dass $[ richtig gesetzt ist (zumindest bei alten Perl-Versionen, inzwischen ist das ja sicher 0).
      
      Ein paar Quotes aus perlvar:
      
      Quote
      You should be very careful when modifying the default values of most special variables described in this document. In most cases you want to localize these variables before changing them, since if you don't, the change may affect other modules which rely on the default values of the special variables that you have changed.
      
      und
      
      Quote
      Usually when a variable is localized you want to make sure that this change affects the shortest scope possible. So unless you are already inside some short "{}" block, you should create one yourself.
      
      Letzteres hattest du nicht beachtet.
      - bianca
        
        2015-08-22 20:27
        
        User since
        2009-09-13
        7016 Artikel
        BenutzerIn
        
        Ja ok. Danke dir
        10 print "Hallo"
        20 goto 10

View all threads created 2015-08-19 09:10.