From c18e30cd2e1ff5e39a72f080b1c43526ed9d5c1b Mon Sep 17 00:00:00 2001 From: Francois Pons Date: Wed, 6 Jun 2001 08:40:58 +0000 Subject: Avoid hard coded perl version in list files, use PERL_VERSION magic string instead. --- rescue/make_rescue_img | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'rescue/make_rescue_img') diff --git a/rescue/make_rescue_img b/rescue/make_rescue_img index 44766f318..df4cbca15 100755 --- a/rescue/make_rescue_img +++ b/rescue/make_rescue_img @@ -54,8 +54,8 @@ foreach (keyboard::loadkeys_files) { } unlink "$tmp/usr/lib/kbd/keymaps/i386/qwertz/fr.kmap.gz"; - -@files = map { chomp; $_ } (cat_("list"), cat_(`../tools/specific_arch list`)); +my $perl_version = join ".", unpack "C3", $^V; +@files = map { chomp; s/PERL_VERSION/$perl_version/g; $_ } (cat_("list"), cat_(`../tools/specific_arch list`)); `ls @files`; $? == 0 or exit 1; -- cgit v1.2.1