On Thu, Dec 02, 2004 at 10:53:59AM -0500, Michael Peters wrote: > >+ if (ref($body) ne 'GLOB') { > >+ # Support scalar-ref for body return > >+ $bodyref = (ref($body) eq 'SCALAR') ? $body : \$body; > > One question: if you are just checking for a GLOB, will that catch class > based file handles like the IO::* family?
Good point, I never used IO::*, so I can't tell. Objects of the FileHandle class work fine. Tobias "Hoeni" Henoeckl -- Tobias Henoeckl SpaceNet AG [EMAIL PROTECTED] http://www.space.net/ Joseph-Dollinger-Bogen 14 +49 89 32356-215 Fax: +49 89 32356-297 80807 Munich, Germany --------------------------------------------------------------------- Web Archive: http://www.mail-archive.com/cgiapp@lists.erlbaum.net/ http://marc.theaimsgroup.com/?l=cgiapp&r=1&w=2 To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED]