diff options
| author | Francois Pons <fpons@mandriva.com> | 2001-06-06 08:40:58 +0000 |
|---|---|---|
| committer | Francois Pons <fpons@mandriva.com> | 2001-06-06 08:40:58 +0000 |
| commit | c18e30cd2e1ff5e39a72f080b1c43526ed9d5c1b (patch) | |
| tree | 88c165cdafe8509f214383144572e822aabc0091 /rescue | |
| parent | a6a0844f535a158c60c547b982971afb38c35b5b (diff) | |
| download | drakx-backup-do-not-use-c18e30cd2e1ff5e39a72f080b1c43526ed9d5c1b.tar drakx-backup-do-not-use-c18e30cd2e1ff5e39a72f080b1c43526ed9d5c1b.tar.gz drakx-backup-do-not-use-c18e30cd2e1ff5e39a72f080b1c43526ed9d5c1b.tar.bz2 drakx-backup-do-not-use-c18e30cd2e1ff5e39a72f080b1c43526ed9d5c1b.tar.xz drakx-backup-do-not-use-c18e30cd2e1ff5e39a72f080b1c43526ed9d5c1b.zip | |
Avoid hard coded perl version in list files, use PERL_VERSION magic
string instead.
Diffstat (limited to 'rescue')
| -rw-r--r-- | rescue/list | 14 | ||||
| -rw-r--r-- | rescue/list.i386 | 4 | ||||
| -rwxr-xr-x | rescue/make_rescue_img | 4 |
3 files changed, 11 insertions, 11 deletions
diff --git a/rescue/list b/rescue/list index b9d598469..eea7dd1b9 100644 --- a/rescue/list +++ b/rescue/list @@ -116,7 +116,7 @@ /sbin/killall5 /usr/bin/perl /usr/bin/perl5 -/usr/bin/perl5.6.1 +/usr/bin/perlPERL_VERSION /bin/sort /usr/bin/md5sum /etc/protocols @@ -125,12 +125,12 @@ /sbin/mkraid /usr/lib/rpm/rpmrc /usr/lib/rpm/macros -/usr/lib/perl5/5.6.1/strict.pm -/usr/lib/perl5/5.6.1/vars.pm -/usr/lib/perl5/5.6.1/warnings/register.pm -/usr/lib/perl5/5.6.1/warnings.pm -/usr/lib/perl5/5.6.1/Carp.pm -/usr/lib/perl5/5.6.1/Exporter.pm +/usr/lib/perl5/PERL_VERSION/strict.pm +/usr/lib/perl5/PERL_VERSION/vars.pm +/usr/lib/perl5/PERL_VERSION/warnings/register.pm +/usr/lib/perl5/PERL_VERSION/warnings.pm +/usr/lib/perl5/PERL_VERSION/Carp.pm +/usr/lib/perl5/PERL_VERSION/Exporter.pm /usr/bin/lspci /usr/share/pci.ids /usr/bin/lspcidrake diff --git a/rescue/list.i386 b/rescue/list.i386 index 12dda5cd6..818bf92be 100644 --- a/rescue/list.i386 +++ b/rescue/list.i386 @@ -6,5 +6,5 @@ /sbin/reiserfsck /sbin/sfdisk /boot/grub/stage[12] -/usr/lib/perl5/5.6.1/i386-linux/CORE/libperl.so -/usr/lib/perl5/site_perl/5.6.1/i386-linux/packdrake.pm +/usr/lib/perl5/PERL_VERSION/i386-linux/CORE/libperl.so +/usr/lib/perl5/site_perl/PERL_VERSION/i386-linux/packdrake.pm 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; |