PMG::Utils::rewrite_config_file: pass pmg_cfg as first argument

diff --git a/PMG/Utils.pm b/PMG/Utils.pm
index 7e3e14e2fd619143898cda0ae51064cba82fe582..0998e4cc778581093172d71de96e51e7e7e4a179 100644 (file)
--- a/PMG/Utils.pm
+++ b/PMG/Utils.pm
@@ -298,9 +298,7 @@ sub add_ct_marks {
 }
 
 sub rewrite_config_file {
-    my ($tmplname, $dstfn) = @_;
-
-    my $pmg_cfg = PMG::Config->new();
+    my ($pmg_cfg, $tmplname, $dstfn) = @_;
 
     my $demo = $pmg_cfg->get('administration', 'demo');
 
@@ -348,9 +346,9 @@ sub rewrite_config_file {
 }
 
 sub rewrite_config_script {
-    my ($tmplname, $dstfn) = @_;
+    my ($pmg_cfg, $tmplname, $dstfn) = @_;
 
-    rewrite_config_file($tmplname, $dstfn);
+    rewrite_config_file($pmg_cfg, $tmplname, $dstfn);
     system("chmod +x $dstfn");
 }