1 files changed, 26 insertions, 0 deletions

diff --git a/debian/substitute-conffile.pl b/debian/substitute-conffile.pl
new file mode 100644
index 000000000..7dd23363e
--- /dev/null
+++ b/debian/substitute-conffile.pl
@@ -0,0 +1,26 @@
+#! /usr/bin/perl -p
+
+# This is needed for a nasty preinst hack to work around a bug in sarge's
+# version of dpkg. It substitutes the literal text of conffiles into preinst
+# scripts so that they can be used when moving conffiles between packages.
+
+BEGIN {
+    %texts = ();
+    while (@ARGV > 1) {
+        my $name = $ARGV[0];
+        shift;
+        local *FILE;
+        open FILE, '<', $ARGV[0];
+        local $/ = undef;
+        my $text = <FILE>;
+        close FILE;
+        # Quote for the shell.
+        $text =~ s/'/'\\''/g;
+        shift;
+        $texts{$name} = $text;
+    }
+}
+
+for my $name (keys %texts) {
+    s/\@$name\@/'$texts{$name}'/g;
+}