ikkon has asked for the wisdom of the Perl Monks concerning the following question:
this solved the problem thanks for the helpsub RTF::Writer::close { return unless $_[0][2]; # Already closed?! #DEBUG > 1 and print "Closing $_[0]\n"; $_[0]->print(\$_[0][1]) if length $_[0][1]; $_[0][2]->close(); # Call close directly undef $_[0][2]; # ...presumably clausing any FH to close and dest +roy. $_[0][1] = ''; return; }
|
|---|
| Replies are listed 'Best First'. | |
|---|---|
|
Re: RTF corrupted when sent to email
by ikkon (Monk) on Apr 05, 2007 at 19:09 UTC |