From d997d377b4e90f3a0eee19a35aa87ba5ca2b9950 Mon Sep 17 00:00:00 2001
From: Chris Fields <cjfields@illinois.edu>
Date: Sat, 27 Jan 2018 21:17:06 -0600
Subject: [PATCH] Actually fix that 'Use of uninitialized value $m in bitwise
 and (&)' error this time

---
 Bio/Root/IO.pm | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/Bio/Root/IO.pm b/Bio/Root/IO.pm
index c4318a25e..37388f536 100644
--- a/Bio/Root/IO.pm
+++ b/Bio/Root/IO.pm
@@ -350,12 +350,12 @@ sub mode {
 
     if ( $arg{-force} || not exists $self->{'_mode'} ) {
         # Determine stream mode
-        my $mode = 0;
+        my $mode;
         my $fh = $self->_fh;
         if (defined $fh) {
             # use fcntl if not Windows-based
             if ($^O !~ /MSWin32/) {
-                my $m = fcntl($fh, F_GETFL, 0);
+                my $m = fcntl($fh, F_GETFL, 0) || 0;
                 $mode = exists $modes{$m & 3}  ? $modes{$m & 3} : '?';
             } else {
                 # Determine read/write status of filehandle
-- 
2.11.4.GIT