use FAKECHROOT_CMD_SUBST instead of backing up and replacing files in chroot
parent
0604d04a74
commit
360b4b7023
@ -1,3 +0,0 @@
|
|||||||
#!/bin/sh -e
|
|
||||||
|
|
||||||
exit
|
|
@ -1,201 +0,0 @@
|
|||||||
#!/usr/bin/perl
|
|
||||||
|
|
||||||
# fakeldd
|
|
||||||
#
|
|
||||||
# Replacement for ldd with usage of objdump
|
|
||||||
#
|
|
||||||
# (c) 2003-2010 Piotr Roszatycki <dexter@debian.org>, LGPL
|
|
||||||
|
|
||||||
use strict;
|
|
||||||
|
|
||||||
my @Libs = ();
|
|
||||||
my %Libs = ();
|
|
||||||
|
|
||||||
my $Status = 0;
|
|
||||||
my $Dynamic = 0;
|
|
||||||
my $Format = '';
|
|
||||||
|
|
||||||
my $Ldsodir = "/lib";
|
|
||||||
my @Ld_Library_Path = qw(/usr/lib /lib /usr/lib32 /lib32 /usr/lib64 /lib64);
|
|
||||||
|
|
||||||
|
|
||||||
sub ldso {
|
|
||||||
my ($lib) = @_;
|
|
||||||
|
|
||||||
return if $Libs{$lib};
|
|
||||||
|
|
||||||
my $path;
|
|
||||||
|
|
||||||
if ($lib =~ /^\//) {
|
|
||||||
$path = $lib;
|
|
||||||
}
|
|
||||||
else {
|
|
||||||
foreach my $dir (@Ld_Library_Path) {
|
|
||||||
next unless -f "$dir/$lib";
|
|
||||||
|
|
||||||
my $badformat = 0;
|
|
||||||
local *PIPE;
|
|
||||||
open PIPE, "objdump -p '$dir/$lib' 2>/dev/null |";
|
|
||||||
while (my $line = <PIPE>) {
|
|
||||||
if ($line =~ /file format (\S*)$/) {
|
|
||||||
$badformat = 1 unless $1 eq $Format;
|
|
||||||
last;
|
|
||||||
}
|
|
||||||
}
|
|
||||||
close PIPE;
|
|
||||||
|
|
||||||
next if $badformat;
|
|
||||||
|
|
||||||
$path = "$dir/$lib";
|
|
||||||
last;
|
|
||||||
}
|
|
||||||
}
|
|
||||||
|
|
||||||
push @Libs, $lib;
|
|
||||||
if (-f $path) {
|
|
||||||
$Libs{$lib} = $path;
|
|
||||||
objdump($path);
|
|
||||||
}
|
|
||||||
}
|
|
||||||
|
|
||||||
|
|
||||||
sub objdump {
|
|
||||||
my (@files) = @_;
|
|
||||||
|
|
||||||
foreach my $file (@files) {
|
|
||||||
local *PIPE;
|
|
||||||
open PIPE, "objdump -p '$file' 2>/dev/null |";
|
|
||||||
while (my $line = <PIPE>) {
|
|
||||||
$line =~ s/^\s+//;
|
|
||||||
|
|
||||||
if ($line =~ /file format (\S*)$/) {
|
|
||||||
if (not $Format) {
|
|
||||||
$Format = $1;
|
|
||||||
|
|
||||||
if ($^O eq 'linux') {
|
|
||||||
if ($Format =~ /^elf64-/) {
|
|
||||||
push @Libs, 'linux-vdso.so.1';
|
|
||||||
$Libs{'linux-vdso.so.1'} = '';
|
|
||||||
}
|
|
||||||
else {
|
|
||||||
push @Libs, 'linux-gate.so.1';
|
|
||||||
$Libs{'linux-gate.so.1'} = '';
|
|
||||||
}
|
|
||||||
}
|
|
||||||
|
|
||||||
foreach my $lib (split /:/, $ENV{LD_PRELOAD}||'') {
|
|
||||||
ldso($lib);
|
|
||||||
}
|
|
||||||
}
|
|
||||||
else {
|
|
||||||
next unless $Format eq $1;
|
|
||||||
}
|
|
||||||
}
|
|
||||||
if (not $Dynamic and $line =~ /^Dynamic Section:/) {
|
|
||||||
$Dynamic = 1;
|
|
||||||
}
|
|
||||||
|
|
||||||
next unless $line =~ /^ \s* NEEDED \s+ (.*) \s* $/x;
|
|
||||||
|
|
||||||
my $needed = $1;
|
|
||||||
if ($needed =~ /^ld(-linux)?(\.|-)/) {
|
|
||||||
$needed = "$Ldsodir/$needed";
|
|
||||||
}
|
|
||||||
|
|
||||||
ldso($needed);
|
|
||||||
}
|
|
||||||
close PIPE;
|
|
||||||
}
|
|
||||||
}
|
|
||||||
|
|
||||||
|
|
||||||
sub load_ldsoconf {
|
|
||||||
my ($file) = @_;
|
|
||||||
|
|
||||||
local *FH;
|
|
||||||
open FH, $file;
|
|
||||||
while (my $line = <FH>) {
|
|
||||||
chomp $line;
|
|
||||||
$line =~ s/#.*//;
|
|
||||||
next if $line =~ /^\s*$/;
|
|
||||||
|
|
||||||
if ($line =~ /^include\s+(.*)\s*/) {
|
|
||||||
my $include = $1;
|
|
||||||
foreach my $incfile (glob $include) {
|
|
||||||
load_ldsoconf($incfile);
|
|
||||||
}
|
|
||||||
next;
|
|
||||||
}
|
|
||||||
|
|
||||||
unshift @Ld_Library_Path, $line;
|
|
||||||
}
|
|
||||||
close FH;
|
|
||||||
}
|
|
||||||
|
|
||||||
|
|
||||||
MAIN: {
|
|
||||||
my @args = @ARGV;
|
|
||||||
|
|
||||||
if (not @args) {
|
|
||||||
print STDERR "fakeldd: missing file arguments\n";
|
|
||||||
exit 1;
|
|
||||||
}
|
|
||||||
|
|
||||||
if (not `which objdump`) {
|
|
||||||
print STDERR "fakeldd: objdump: command not found: install binutils package\n";
|
|
||||||
exit 1;
|
|
||||||
}
|
|
||||||
|
|
||||||
load_ldsoconf('/etc/ld.so.conf');
|
|
||||||
unshift @Ld_Library_Path, split(/:/, $ENV{LD_LIBRARY_PATH}||'');
|
|
||||||
|
|
||||||
while ($args[0] =~ /^-/) {
|
|
||||||
my $arg = $args[0];
|
|
||||||
shift @ARGV;
|
|
||||||
last if $arg eq "--";
|
|
||||||
}
|
|
||||||
|
|
||||||
foreach my $file (@args) {
|
|
||||||
%Libs = ();
|
|
||||||
$Dynamic = 0;
|
|
||||||
|
|
||||||
if (@args > 1) {
|
|
||||||
print "$file:\n";
|
|
||||||
}
|
|
||||||
|
|
||||||
if (not -f $file) {
|
|
||||||
print STDERR "ldd: $file: No such file or directory\n";
|
|
||||||
$Status = 1;
|
|
||||||
next;
|
|
||||||
}
|
|
||||||
|
|
||||||
objdump($file);
|
|
||||||
|
|
||||||
if ($Dynamic == 0) {
|
|
||||||
print "\tnot a dynamic executable\n";
|
|
||||||
$Status = 1;
|
|
||||||
}
|
|
||||||
elsif (scalar %Libs eq "0") {
|
|
||||||
print "\tstatically linked\n";
|
|
||||||
}
|
|
||||||
|
|
||||||
my $address = '0x' . '0' x ($Format =~ /^elf64-/ ? 16 : 8);
|
|
||||||
|
|
||||||
foreach my $lib (@Libs) {
|
|
||||||
if ($lib =~ /^\//) {
|
|
||||||
printf "\t%s (%s)\n", $lib, $address;
|
|
||||||
}
|
|
||||||
elsif (defined $Libs{$lib}) {
|
|
||||||
printf "\t%s => %s (%s)\n", $lib, $Libs{$lib}, $address;
|
|
||||||
}
|
|
||||||
else {
|
|
||||||
printf "\t%s => not found\n", $lib;
|
|
||||||
}
|
|
||||||
}
|
|
||||||
|
|
||||||
}
|
|
||||||
}
|
|
||||||
|
|
||||||
END {
|
|
||||||
$? = $Status;
|
|
||||||
}
|
|
@ -1 +0,0 @@
|
|||||||
../../../default/root/sbin/ldconfig
|
|
@ -1 +0,0 @@
|
|||||||
../../../../default/root/usr/bin/ldd
|
|
@ -1 +0,0 @@
|
|||||||
../../../default/root/sbin/ldconfig
|
|
@ -1 +0,0 @@
|
|||||||
../../../../default/root/usr/bin/ldd
|
|
@ -1 +0,0 @@
|
|||||||
../../../default/root/sbin/ldconfig
|
|
@ -1 +0,0 @@
|
|||||||
../../../../default/root/usr/bin/ldd
|
|
@ -1 +0,0 @@
|
|||||||
../../../default/root/sbin/ldconfig
|
|
@ -1 +0,0 @@
|
|||||||
../../../../default/root/usr/bin/ldd
|
|
Loading…
Reference in New Issue