-    if (ref $filename eq 'GLOB') {
 +    if (defined fileno($filename)) {