From afa31fb6b42e3dd717eb2aed4d00099afeb28f75 Mon Sep 17 00:00:00 2001
From: hyphaltip <jason@bioperl.org>
Date: Mon, 15 Apr 2013 16:15:21 -0700
Subject: [PATCH] make explicit

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

diff --git a/Bio/DB/Qual.pm b/Bio/DB/Qual.pm
index 2d103c1c0..a83643421 100644
--- a/Bio/DB/Qual.pm
+++ b/Bio/DB/Qual.pm
@@ -228,7 +228,7 @@ sub _calculate_offsets {
             }
             $linelen ||= length $line;
             $qual_lines++;
-            $numres += scalar split /\s+/, $line;
+            $numres += scalar(split /\s+/, $line);
         }
         $last_line = $line;
     }
-- 
2.11.4.GIT