Re: CGI.pm and filehandle woes

[Sidhekin]

Anyone have any ideas on how to get this working?

As I said in the CB, I've worked around CGI's lightweight, crippled, overloaded file handle by making it inherit from the necessary classes. Assuming the classes are already loaded:

push @Fh::ISA, 'IO::Seekable' unless Fh->isa('IO::Seekable');
push @Fh::ISA, 'IO::Handle' unless Fh->isa('IO::Handle');
my $mimetype = File::MMagic->new->checktype_filehandle($filehandle);

As long as the $filehandle provided by CGI is a globref, blessed to the Fh class, and sysopened on the tempfile (as it is today), this works. Plenty hacky, but it works, at least for File::MMagic.

[Elijah]

Actually, it appears I owe you an apology, I was trying to use your method with File::MimeInfo::Magic which does a seek on the filehandle and it did not work, I installed File::MMagic and used your suggestion and it seems to work fine. The weird thing is that File::MMagic does a seek on the filehandle also.

[Elijah]

Yeah from our conversation in CB, I have tried your suggestion and still get the error.

[Sidhekin]

Yeah from our conversation in CB, I have tried your suggestion and still get the error.

Okay, I have installed your choice of module, and it works here. I'm beginning to suspect that you have not loaded the necessary modules. Try adding these lines before the mess above:

require IO::Seekable;
require IO::Handle;

(If you still get the same error, something else is messing with inheritence.)

[markjugg]

If this works well, have you considered getting patch into CGI.pm that does the same thing? Your solution seems like it would work to me.