From 0b4b977ff5ac03ee1efd5779ce134091433ff07e Mon Sep 17 00:00:00 2001
From: "Richard W.M. Jones" <rjones@redhat.com>
Date: Tue, 7 Dec 2010 08:33:40 +0000
Subject: [PATCH] Real fix for .*.hmac files (accidental reopening of
 RHBZ#654638).

Previous commit was broken.
---
 febootstrap.ml | 6 ++++--
 1 file changed, 4 insertions(+), 2 deletions(-)

diff --git a/febootstrap.ml b/febootstrap.ml
index 58b2962..9ea9885 100644
--- a/febootstrap.ml
+++ b/febootstrap.ml
@@ -151,12 +151,14 @@ let () =
   );
 
   (* Split the list of files into ones for hostfiles and ones for base image. *)
-  let p_hmac = Str.regexp "/\\..*\\.hmac$" in
+  let p_hmac = Str.regexp "^\\..*\\.hmac$" in
 
   let hostfiles = ref []
   and baseimgfiles = ref [] in
   List.iter (
     fun (path, {ft_dir = dir; ft_ghost = ghost; ft_config = config} ,_ as f) ->
+      let file = Filename.basename path in
+
       (* Ignore boot files, kernel, kernel modules.  Supermin appliances
        * are booted from external kernel and initrd, and
        * febootstrap-supermin-helper copies the host kernel modules.
@@ -176,7 +178,7 @@ let () =
         hostfiles := f :: !hostfiles
 
       (* Ignore FIPS files (.*.hmac) (RHBZ#654638). *)
-      else if Str.string_match p_hmac path 0 then ()
+      else if Str.string_match p_hmac file 0 then ()
 
       (* Ghost files are created empty in the base image. *)
       else if ghost then
-- 
1.8.3.1