FileHandle::DESTROY for fd 0

This fixes FileHandle::DESTROY when called on stdin.

diff --git a/ext/FileHandle/FileHandle.pm b/ext/FileHandle/FileHandle.pm
index 03a698d..1c030ec 100644 (file)
--- a/ext/FileHandle/FileHandle.pm
+++ b/ext/FileHandle/FileHandle.pm
@@ -270,10 +270,10 @@ sub DESTROY {
 
    if ($fh =~ /=FILEHANDLE\(/) {
      local *TMP = $fh;
-     close(TMP) if fileno(TMP);
+     close(TMP) if defined fileno(TMP);
    }
    else {
-     close($fh) if fileno($fh);
+     close($fh) if defined fileno($fh);
    }
 }