Fixed up the regex on files

The regex for filtering the durable files needs to match the creation of
the names o fhte files, in order to make sure that we don't go looking
for files that aren't durable queue files.

Author: drbobbeaty

project.clj

@@ -1,4 +1,4 @@
-(defproject factual/durable-queue "0.1.6-SNAPSHOT"
+(defproject factual/durable-queue "0.1.6"
   :description "a in-process task-queue that is backed by disk."
   :license {:name "Eclipse Public License"
             :url "http://www.eclipse.org/legal/epl-v10.html"}

src/durable_queue.clj

@@ -348,7 +348,7 @@
    any existing files for that queue name."
   ([directory q-name queue size]
      (locking fs-monitor
-       (let [pattern (re-pattern (str "^" q-name "_(\\d+)"))
+       (let [pattern (re-pattern (str "^" q-name "_(\\d{6})"))
              last-number (->> directory
                            io/file
                            .listFiles
@@ -398,8 +398,8 @@
   (let [queue->file (->> directory
                       io/file
                       .listFiles
-                      (filter #(re-find #"\w+_\d+" (.getName ^File %)))
-                      (group-by #(second (re-find #"(\w+)_\d+" (.getName ^File %)))))]
+                      (filter #(re-find #"^\w+_\d{6}$" (.getName ^File %)))
+                      (group-by #(second (re-find #"^(\w+)_\d{6}$" (.getName ^File %)))))]
     (zipmap
       (keys queue->file)
       (map