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 efc15655f3a011a807e368deb02bf54503e46c40..d82c0c2a1152725746d83121a924feb9f97755ed 100644 (file)
--- 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 b6f349dd57e38d500f92d28dbf461b9decc0765a..bf2aab8ed90d386c448edb6d46c9fe586cf9f92c 100644 (file)
--- 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 8c13cb8d25b3e519ff98b277a5ff34e472fa6a75..6eca1cfa79d5d56f15dc34d225886a2230620bff 100755 (executable)
--- 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 06cabbc5a2df3efbbf4dd2f96ba207edd0b13f11..d53d2ec10ecec7e1aca4149601ef9bf6e80355cf 100755 (executable)
--- 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 edaded698cce2265e23adcd5cdb8deab77d7320b..c65a6b09ca3d3d12a5cceb94b7e9c214bb146e9a 100755 (executable)
--- 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 edbbec8bf889f4876c443543461245335e27a6a3..408c9410d8c21fe5cb4ba52a58e477befc157493 100755 (executable)
--- 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;