Hi Roger, Attached is a (tested) patch. Please commit it, I was not sure which branch to use.
I also added a comment to the file so that this mistake does not happen again. -- Best regards, Michael
>From 5a53da267fbb932c30648d90e2356d45bf699622 Mon Sep 17 00:00:00 2001 From: Michael Stapelberg <[email protected]> Date: Mon, 15 Jul 2013 18:05:58 +0200 Subject: [PATCH] Bugfix: reimplement make_path, only perl-base modules are okay (Thanks vorlon) see bug #716923 --- debian/src/sysv-rc/sbin/update-rc.d | 10 +++++++++- 1 file changed, 9 insertions(+), 1 deletion(-) diff --git a/debian/src/sysv-rc/sbin/update-rc.d b/debian/src/sysv-rc/sbin/update-rc.d index 67a7460..36228d6 100755 --- a/debian/src/sysv-rc/sbin/update-rc.d +++ b/debian/src/sysv-rc/sbin/update-rc.d @@ -5,7 +5,8 @@ use strict; use warnings; -use File::Path qw(make_path); # in core since Perl 5.001 +# NB: All Perl modules used here must be in perl-base. Specifically, depending +# on modules in perl-modules is not okay! See bug #716923 my $initd = "/etc/init.d"; my $etcd = "/etc/rc"; @@ -56,6 +57,13 @@ sub error_code { exit ($rc); } +sub make_path { + my ($path) = @_; + my @dirs = (); + my @path = split /\//, $path; + map { push @dirs, $_; mkdir join('/', @dirs), 0755; } @path; +} + # Creates the necessary links to enable/disable the service (equivalent of an # initscript) in systemd. sub make_systemd_links { -- 1.7.10.4
_______________________________________________ Pkg-sysvinit-devel mailing list [email protected] http://lists.alioth.debian.org/cgi-bin/mailman/listinfo/pkg-sysvinit-devel
