Projekt

Allgemein

Profil

« Zurück | Weiter » 

Revision 73c7fcda

Von Sven Schöling vor etwa 13 Jahren hinzugefügt

  • ID 73c7fcda3fffdde721d283e8828a2954bdfcf561
  • Vorgänger 07ccbf8d
  • Nachfolger d4fc9016

Fehler beim kopieren von Daten auf ein Filehandle

unter bestimmten umständen konnte das Filehandle als string auf die Standardausgabe kopiert werden.

Unterschiede anzeigen:

SL/Form.pm
1413 1413
      for my $i (1 .. $self->{copies}) {
1414 1414
        if ($self->{OUT}) {
1415 1415
          open OUT, '>', $self->{OUT} or $self->error($self->cleanup . "$self->{OUT} : $!");
1416
          print OUT while <IN>;
1416
          print OUT $_ while <IN>;
1417 1417
          close OUT;
1418 1418
          seek IN, 0, 0;
1419 1419

  

Auch abrufbar als: Unified diff