From: Raphael Hertzog <hertzog@debian.org>
Date: Mon, 9 Jun 2008 19:47:48 +0000 (+0200)
Subject: Set PERL_DL_NONLAZY to 1 in perl scripts called by configuration scripts
X-Git-Url: https://err.no/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=b5b9b42fce4fe6cdf331de352dbd4ad9655c3b70;p=dpkg

Set PERL_DL_NONLAZY to 1 in perl scripts called by configuration scripts

* scripts/dpkg-divert.pl, scripts/update-alternatives.pl,
scripts/install-info.pl, scripts/dpkg-statoverride.pl: Set
PERL_DL_NONLAZY to 1 so that the usage of Locale::Gettext doesn't
cause run-time failures when this perl binary module is not
compiled for the corresponding perl version (and this happens in
configuration scripts, in particular preinst, during upgrades).
See http://bugs.debian.org/479711 for details.
---

diff --git a/ChangeLog b/ChangeLog
index efc15655..d82c0c2a 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,12 @@
+2008-06-09  Raphael Hertzog  <hertzog@debian.org>
+
+	* scripts/dpkg-divert.pl, scripts/update-alternatives.pl,
+	scripts/install-info.pl, scripts/dpkg-statoverride.pl: Set
+	PERL_DL_NONLAZY to 1 so that the usage of Locale::Gettext doesn't
+	cause run-time failures when this perl binary module is not
+	compiled for the corresponding perl version (and this happens in
+	configuration scripts, in particular preinst, during upgrades).
+
 2008-06-08  Raphael Hertzog  <hertzog@debian.org>
 
 	* scripts/Dpkg/Source/Patch.pm (analyze): Be less strict in
diff --git a/debian/changelog b/debian/changelog
index b6f349dd..bf2aab8e 100644
--- a/debian/changelog
+++ b/debian/changelog
@@ -18,6 +18,8 @@ dpkg (1.14.20) UNRELEASED; urgency=low
   * The automatically created patches (in source package formats "2.0" and
     "3.0 (quilt)") will now contain "/dev/null" as previous filename when the
     patch creates a new file (instead of putting the same name).
+  * Set PERL_DL_NONLZY to 1 in perl scripts that are likely to be called in
+    package's configuration scripts to work around the perl bug #479711.
 
   [ Helge Kreutzmann ]
   * Fix a typo in dselect.1
diff --git a/scripts/dpkg-divert.pl b/scripts/dpkg-divert.pl
index 8c13cb8d..6eca1cfa 100755
--- a/scripts/dpkg-divert.pl
+++ b/scripts/dpkg-divert.pl
@@ -1,5 +1,9 @@
 #!/usr/bin/perl --
 
+BEGIN { # Work-around for bug #479711 in perl
+    $ENV{PERL_DL_NONLAZY} = 1;
+}
+
 use strict;
 use warnings;
 
diff --git a/scripts/dpkg-statoverride.pl b/scripts/dpkg-statoverride.pl
index 06cabbc5..d53d2ec1 100755
--- a/scripts/dpkg-statoverride.pl
+++ b/scripts/dpkg-statoverride.pl
@@ -1,5 +1,9 @@
 #! /usr/bin/perl
 
+BEGIN { # Work-around for bug #479711 in perl
+    $ENV{PERL_DL_NONLAZY} = 1;
+}
+
 use strict;
 use warnings;
 
diff --git a/scripts/install-info.pl b/scripts/install-info.pl
index edaded69..c65a6b09 100755
--- a/scripts/install-info.pl
+++ b/scripts/install-info.pl
@@ -1,5 +1,9 @@
 #!/usr/bin/perl --
 
+BEGIN { # Work-around for bug #479711 in perl
+    $ENV{PERL_DL_NONLAZY} = 1;
+}
+
 use Text::Wrap;
 use Dpkg;
 use Dpkg::Gettext;
diff --git a/scripts/update-alternatives.pl b/scripts/update-alternatives.pl
index edbbec8b..408c9410 100755
--- a/scripts/update-alternatives.pl
+++ b/scripts/update-alternatives.pl
@@ -1,5 +1,9 @@
 #!/usr/bin/perl --
 
+BEGIN { # Work-around for bug #479711 in perl
+    $ENV{PERL_DL_NONLAZY} = 1;
+}
+
 use strict;
 use warnings;