http://qs321.pair.com?node_id=11118252


in reply to How do you get IO::Uncompress::Gunzip to error if the input file isn't a GZ file?

Set the Transparent option to 0:
Transparent => 0|1
If this option is set and the input file/buffer is not compressed data, the module will allow reading of it anyway.
In addition, if the input file/buffer does contain compressed data and there is non-compressed data immediately following it, setting this option will make this module treat the whole file/buffer as a single data stream.
This option defaults to 1.
map{substr$_->[0],$_->[1]||0,1}[\*||{},3],[[]],[ref qr-1,-,-1],[{}],[sub{}^*ARGV,3]