octoleo/qpdf
2
1
Fork 0
mirror of https://github.com/qpdf/qpdf.git synced 2024-12-22 19:08:59 +00:00
Code Issues Releases Wiki Activity

Windows install: check DLL type

Browse Source 
When copying dlls, make sure to only consider DLLs whose type matches
the type of what is loading them.
This commit is contained in:
Jay Berkenbilt 2013-03-11 12:34:31 -04:00
parent 3803e9cc4a
commit 49c7681c58
3 changed files with 46 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
ChangeLog
View File

@ -1,3 +1,10 @@
2013-03-11 Jay Berkenbilt <ejb@ql.org>
* When creating Windows binary distributions, make sure to only
copy DLLs of the correct type. The ensures that the 32-bit
distributions contain 32-bit DLLs and the 64-bit distributions
contain 64-bit DLLs.
2013-03-07 Jay Berkenbilt <ejb@ql.org> 2013-03-07 Jay Berkenbilt <ejb@ql.org>
* Use ./install-sh (already present) instead of "install -c" to * Use ./install-sh (already present) instead of "install -c" to

6
TODO
View File

@ -22,12 +22,6 @@
- See ../misc/broken-files - See ../misc/broken-files
* The mingw64 package is broken. It contains a 32-bit version of
libstdc++-6.dll. Fix this and make sure it can never happen
again. Ideally we should test in a sandbox, but failing that, at
least run file on all the dlls to make sure they are of the right
type.
* Add to documentation, and mention this documentation in * Add to documentation, and mention this documentation in
README.maintainer: README.maintainer:

42
copy_dlls
View File

@ -12,6 +12,7 @@ my ($file, $destdir, $objdump) = @ARGV;
my $filedir = dirname($file); my $filedir = dirname($file);
my %dlls = (); my %dlls = ();
my $format = undef;
open(O, "$objdump -p $file|") or die "$whoami: can't run objdump\n"; open(O, "$objdump -p $file|") or die "$whoami: can't run objdump\n";
while (<O>) while (<O>)
{ {
@ -22,11 +23,21 @@ while (<O>)
next if $dll =~ m/^(kernel32|user32|msvcrt)\.dll$/; next if $dll =~ m/^(kernel32|user32|msvcrt)\.dll$/;
$dlls{$dll} = 1; $dlls{$dll} = 1;
} }
elsif (m/^Magic.*\((PE.+?)\)/)
{
$format = $1;
}
} }
close(O); close(O);
if (! defined $format)
{
die "$whoami: can't determine format of $file\n";
}
# Search the file's directory, the current directory, and the path for # Search the directories named in the file's manifest (if present),
# dlls since that's what Windows does. # the file's directory, the current directory, and the path for dlls
# since that's what Windows does. Be sure to only capture compatible
# DLLs.
my $sep = ($^O eq 'MSWin32' ? ';' : ':'); my $sep = ($^O eq 'MSWin32' ? ';' : ':');
my @path = ($filedir, '.', split($sep, $ENV{'PATH'})); my @path = ($filedir, '.', split($sep, $ENV{'PATH'}));
if (-f "$file.manifest") if (-f "$file.manifest")
@ -41,7 +52,7 @@ foreach my $dll (sort keys %dlls)
my $found = 0; my $found = 0;
foreach my $dir (@path) foreach my $dir (@path)
{ {
if (-f "$dir/$dll") if ((-f "$dir/$dll") && is_format("$dir/$dll", $format))
{ {
push(@final, "$dir/$dll"); push(@final, "$dir/$dll");
$found = 1; $found = 1;
@ -68,6 +79,31 @@ foreach my $f (@final)
die "$whoami: copy $f to $destdir failed\n"; die "$whoami: copy $f to $destdir failed\n";
} }
sub is_format
{
my ($file, $format) = @_;
$file =~ s,\\,/,g;
# Special case: msvc*.dll seem to be able to behave both as 32-bit
# and 64-bit DLLs. Either that, or this logic is wrong for those
# DLLs and it doesn't matter because they're already installed on
# my test system (which doesn't have msvc installed on it).
if ($file =~ m,/msvc,i)
{
return 1;
}
my $result = 0;
my $file_format = `file $file`;
print "$file $format $file_format\n";
if ($? == 0)
{
if ($file_format =~ m/\Q${format}\E executable/)
{
$result = 1;
}
}
$result;
}
sub get_manifest_dirs sub get_manifest_dirs
{ {
# Find all system directories in which to search for DLLs based on # Find all system directories in which to search for DLLs based on