From d23ef6d303185c322aeb9d755daa767ecc111e19 Mon Sep 17 00:00:00 2001
From: William Brown <william@blackhats.net.au>
Date: Jan 17 2019 23:11:21 +0000
Subject: Ticket 50125 - perl fix ups for tmpfiles


Bug Description: I missed updating the perl tools during the tmpfiles
fix.

Fix Description: Change the name in dscreate.pm

https://pagure.io/389-ds-base/issue/50125

Author: William Brown <william@blackhats.net.au>

Review by: vashirov (Thanks!)

---

diff --git a/ldap/admin/src/scripts/DSCreate.pm.in b/ldap/admin/src/scripts/DSCreate.pm.in
index 248b65d..b586cef 100644
--- a/ldap/admin/src/scripts/DSCreate.pm.in
+++ b/ldap/admin/src/scripts/DSCreate.pm.in
@@ -1066,7 +1066,7 @@ sub updateSelinuxPolicy {
 
 sub updateTmpfilesDotD {
     my $inf = shift;
-    my $dir = "@with_tmpfiles_d@";
+    my $dir = "@tmpfiles_d@";
     my $rundir;
     my $lockdir;
     my $parentdir;
@@ -1430,7 +1430,7 @@ sub removeDSInstance {
         }
     }
 
-    my $tmpfilesdir = "@with_tmpfiles_d@";
+    my $tmpfilesdir = "@tmpfiles_d@";
     my $tmpfilesname = "$tmpfilesdir/@package_name@-$inst.conf";
     if ((getLogin() eq 'root') && $tmpfilesdir && -d $tmpfilesdir && -f $tmpfilesname) {
         my $rc = unlink($tmpfilesname);