diff options
author | Richard W.M. Jones <rjones@redhat.com> | 2010-12-07 08:33:40 +0000 |
---|---|---|
committer | Richard W.M. Jones <rjones@redhat.com> | 2010-12-07 08:33:40 +0000 |
commit | 0b4b977ff5ac03ee1efd5779ce134091433ff07e (patch) | |
tree | 54b965458e9df49a2ea1c50e9d14daf75f72868b /febootstrap.ml | |
parent | d60d959e8bd83793fadc7afe750d5eda94c8994b (diff) | |
download | febootstrap-0b4b977ff5ac03ee1efd5779ce134091433ff07e.tar.gz febootstrap-0b4b977ff5ac03ee1efd5779ce134091433ff07e.tar.xz febootstrap-0b4b977ff5ac03ee1efd5779ce134091433ff07e.zip |
Real fix for .*.hmac files (accidental reopening of RHBZ#654638).
Previous commit was broken.
Diffstat (limited to 'febootstrap.ml')
-rw-r--r-- | febootstrap.ml | 6 |
1 files 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 |