On Saturday 10 February 2007 09:33, Russ Allbery wrote:
> + my $diamondop = ref($source) =~ /^(?:GLOB|FileHandle|IO::\w+)$/
> + || eval { tied *$source };Hm, does this disallow subclassing any of those packages? Would checking fileno() be better? How about using Scalar::Util::blessed() instead of ref()? -- c
