diff options
| -rw-r--r-- | sysprep/sysprep_operation_cron_spool.ml | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/sysprep/sysprep_operation_cron_spool.ml b/sysprep/sysprep_operation_cron_spool.ml index e96832c9..c087887b 100644 --- a/sysprep/sysprep_operation_cron_spool.ml +++ b/sysprep/sysprep_operation_cron_spool.ml @@ -26,7 +26,9 @@ let cron_spool_perform g root = Array.iter g#rm (g#glob_expand "/var/spool/atjobs/*"); Array.iter g#rm (g#glob_expand "/var/spool/atjobs/.SEQ"); Array.iter g#rm (g#glob_expand "/var/spool/atspool/*"); - Array.iter g#rm (g#glob_expand "/var/spool/at/*"); + Array.iter + (fun path -> if not (g#is_dir path) then g#rm path) + (g#glob_expand "/var/spool/at/*"); Array.iter g#rm (g#glob_expand "/var/spool/at/.SEQ"); Array.iter g#rm (g#glob_expand "/var/spool/at/spool/*"); [] |