From 47aeb5b3bc7403eed9db2093ea8dc6a05489e419 Mon Sep 17 00:00:00 2001
From: Vitalie Spinu <spinuvit@gmail.com>
Date: Mon, 29 Apr 2013 15:59:37 +0200
Subject: [PATCH] use sub/gsub only with perl=TRUE or fixed=TRUE (bug #181)

---
 R/guess.r | 8 ++++----
 1 file changed, 4 insertions(+), 4 deletions(-)

diff --git a/R/guess.r b/R/guess.r
index 1224faaa..f264633c 100644
--- a/R/guess.r
+++ b/R/guess.r
@@ -383,14 +383,14 @@ guess_formats <- function(x, orders, locale = Sys.getlocale("LC_TIME"),
                r = sprintf("((%s\\D*%s)|%s)",
                  num[["I"]], alpha[["p"]], num[["H"]]))
       
-      num[nms] <- sub("<M", "<M_T", 
-                      sub("<S", "<S_T", 
-                          sub("<OS", "<OS_T", num[nms])))
+      num[nms] <- sub("<M", "<M_T", fixed = TRUE, 
+                      sub("<S", "<S_T", fixed = TRUE, 
+                          sub("<OS", "<OS_T", num[nms], fixed = TRUE)))
     }
 
 
     ## don't let special nms be confused with standard formats
-    num[nms] <- gsub("(<[IMSpHS]|<OS)", "\\1_s", num[nms]) 
+    num[nms] <- gsub("(<[IMSpHS]|<OS)", "\\1_s", num[nms], perl = TRUE)
     
 
     ## The difference between flex regexp and exact is that flex should follow