From 8caade2be59dd091978fad5fef7bad7ca4bbbefa Mon Sep 17 00:00:00 2001
From: Guillem Jover <guillem@debian.org>
Date: Wed, 24 Jan 2007 02:21:28 +0000
Subject: [PATCH] 	* scripts/controllib.pl: Move substvar initializations
 to ... 	(init_substvars): ... here.

---
 ChangeLog             | 5 +++++
 scripts/controllib.pl | 9 +++++----
 2 files changed, 10 insertions(+), 4 deletions(-)

diff --git a/ChangeLog b/ChangeLog
index 0d17ebd8..8894f9fd 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,8 @@
+2007-01-24  Guillem Jover  <guillem@debian.org>
+
+	* scripts/controllib.pl: Move substvar initializations to ...
+	(init_substvars): ... here.
+
 2007-01-24  Frank Lichtenheld  <djpig@debian.org>
 
 	* scripts/822-date.pl: Convert the script to be a simple wrapper
diff --git a/scripts/controllib.pl b/scripts/controllib.pl
index a3be7a27..3c998f0f 100755
--- a/scripts/controllib.pl
+++ b/scripts/controllib.pl
@@ -25,10 +25,6 @@ $parsechangelog= 'dpkg-parsechangelog';
 @src_dep_fields = qw(Build-Depends Build-Depends-Indep
                      Build-Conflicts Build-Conflicts-Indep);
 
-$substvar{'Format'}= 1.7;
-$substvar{'Newline'}= "\n";
-$substvar{'Space'}= " ";
-$substvar{'Tab'}= "\t";
 $maxsubsts=50;
 $warnable_error= 1;
 $quiet_warnings = 0;
@@ -319,6 +315,11 @@ sub parsechangelog {
 
 sub init_substvars
 {
+    $substvar{'Format'} = 1.7;
+    $substvar{'Newline'} = "\n";
+    $substvar{'Space'} = " ";
+    $substvar{'Tab'} = "\t";
+
     # XXX: Source-Version is now deprecated, remove in the future.
     $substvar{'Source-Version'}= $fi{"L Version"};
     $substvar{'binary:Version'} = $fi{"L Version"};
-- 
2.39.5