From 752572d293bd1c742fd694c12eec4c9580272be3 Mon Sep 17 00:00:00 2001
From: Chris Fields <cjfields@illinois.edu>
Date: Sat, 27 Jan 2018 20:47:01 -0600
Subject: [PATCH] Fix "Use of uninitialized value $m in bitwise and (&)"
 warning

---
 Bio/Root/IO.pm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/Bio/Root/IO.pm b/Bio/Root/IO.pm
index 541a8ed1b..c4318a25e 100644
--- a/Bio/Root/IO.pm
+++ b/Bio/Root/IO.pm
@@ -350,7 +350,7 @@ sub mode {
 
     if ( $arg{-force} || not exists $self->{'_mode'} ) {
         # Determine stream mode
-        my $mode;
+        my $mode = 0;
         my $fh = $self->_fh;
         if (defined $fh) {
             # use fcntl if not Windows-based
-- 
2.11.4.GIT