diff options
author | Mystery Man <unknown@mandriva.org> | 2002-08-05 15:51:48 +0000 |
---|---|---|
committer | Mystery Man <unknown@mandriva.org> | 2002-08-05 15:51:48 +0000 |
commit | 60a32f602c51495953e8f5db7ff42704a939caca (patch) | |
tree | e5927f165ceb0e00e0067ed53ac00bcfb6ef4a80 /perl-install/live_install2 | |
parent | f40f7286b31daab17a4db329040e543f830d3175 (diff) | |
download | drakx-backup-do-not-use-1_1_9_5mdk.tar drakx-backup-do-not-use-1_1_9_5mdk.tar.gz drakx-backup-do-not-use-1_1_9_5mdk.tar.bz2 drakx-backup-do-not-use-1_1_9_5mdk.tar.xz drakx-backup-do-not-use-1_1_9_5mdk.zip |
This commit was manufactured by cvs2svn to create tag 'V1_1_9_5mdk'.V1_1_9_5mdk
Diffstat (limited to 'perl-install/live_install2')
-rwxr-xr-x | perl-install/live_install2 | 55 |
1 files changed, 0 insertions, 55 deletions
diff --git a/perl-install/live_install2 b/perl-install/live_install2 deleted file mode 100755 index 58c5e9e83..000000000 --- a/perl-install/live_install2 +++ /dev/null @@ -1,55 +0,0 @@ -#!/usr/bin/perl - -my $dir = `pwd`; -chomp $dir; -$dir .= "/../../.."; - -#- perl version of the install, we use directly the version we found, -#- this means there SHOULD BE no module compiled for an older version of perl -#- which will be used by DrakX. -my ($version, $arch) = (glob "$dir/usr/lib/perl5/*/*/CORE/libperl.so")[0] =~ m|$dir/usr/lib/perl5/([^/]*)/([^/]*)/CORE/libperl.so|; - -#- keep it mind the ELF loader to use. -$ENV{LD_LOADER} = "$dir/lib/ld-linux.so.2"; - -$ENV{LOCPATH}="$dir/usr/share/locale"; -$ENV{GCONV_PATH}="$dir/usr/lib/gconv"; -$ENV{PERL5LIB} = join ":", map { "$dir/usr/lib/perl5/$_" } ("$version/$arch", - "$version", - "site_perl/$version/$arch", - "site_perl/$version", - "site_perl"); -$ENV{LD_LIBRARY_PATH} = "$dir/usr/bin:$dir/bin:$dir/sbin:$dir/usr/sbin:$dir/usr/X11R6/bin:$dir/lib:$dir/usr/lib:$dir/usr/lib/perl5/$version/$arch/CORE"; -$ENV{PATH} = join(":", map { "$dir/$_" } split ":", "/usr/bin:/bin:/sbin:/usr/sbin:/usr/X11R6/bin") . ":$ENV{PATH}"; -$ENV{SHARE_PATH} = "$dir/usr/share"; -$ENV{RPMRC_FILE} = "$dir/usr/lib/rpm/rpmrc"; -$ENV{GTK_DATA_PREFIX} = "$dir/usr"; -$ENV{GTK_EXE_PREFIX} = "$dir/usr"; -$ENV{GDK_IMLIB_PATH} = "$dir/usr/lib"; - -system $ENV{LD_LOADER}, "../perl", "-i", "-pe", "s,^(.*macrofiles[^/]*)(.*),\$1$dir/usr/lib/rpm/macros:\$2,", $ENV{RPMRC_FILE}; -system $ENV{LD_LOADER}, "../perl", "./install2", "--live", @ARGV; - -#- at this point, unwind above else they will not run correctly (wrong ld-linux.so.2) -delete $ENV{GTK_EXE_PREFIX}; -delete $ENV{RPMRC_FILE}; -delete $ENV{LOCPATH}; -delete $ENV{SHARE_PATH}; -delete $ENV{PATH}; -delete $ENV{LD_LIBRARY_PATH}; -delete $ENV{PERL5LIB}; -delete $ENV{LD_LOADER}; - -$ENV{DISPLAY} and system "xset", "-fp", "/tmp/drakx/mdkinst/usr/X11R6/lib/X11/fonts/"; -foreach (qw(misc PEX Speedo Type1 mdk 75dpi 100dpi cyrillic)) { - -d "/usr/X11R6/lib/X11/fonts/$_" or next; - -e "/usr/X11R6/lib/X11/fonts/$_/fonts.dir" and next; - chdir "/usr/X11R6/lib/X11/fonts/$_"; - system "mkfontdir"; -} -$ENV{DISPLAY} and system "xset", "fp", "rehash"; - -system "/bin/rm", "-rf", "/tmp/drakx"; -system "/bin/rm", "-rf", "/tmp/rhimage"; - -exec "/bin/sync"; |