From 5fd5c2d87891b08724244a74e8eae767bbcf8c6e Mon Sep 17 00:00:00 2001
From: "Roger D. Peng [amelia]" <rpeng@jhsph.edu>
Date: Thu, 21 Aug 2008 11:24:14 -0400
Subject: [PATCH] If 'hasWorkingFtell' fails, return FALSe

---
 R/filehash-DB1.R | 2 ++
 1 file changed, 2 insertions(+)

diff --git a/R/filehash-DB1.R b/R/filehash-DB1.R
index b450917..abd12ca 100644
--- a/R/filehash-DB1.R
+++ b/R/filehash-DB1.R
@@ -420,6 +420,8 @@ hasWorkingFtell <- function() {
                 end <- seek(con)
                 offset <- end - begin
                 isTRUE(offset == 10)
+        }, error = function(e) {
+                FALSE
         }, finally = {
                 close(con)
                 unlink(tfile)
-- 
2.11.4.GIT