Unverified Commit 2a5c3e74 authored by boklm's avatar boklm
Browse files

tbb_binfiles: return relative paths

parent 4f877159
...@@ -384,7 +384,9 @@ sub tbb_binfiles { ...@@ -384,7 +384,9 @@ sub tbb_binfiles {
return unless -f $File::Find::name; return unless -f $File::Find::name;
my $type = File::Type->new->checktype_filename($File::Find::name); my $type = File::Type->new->checktype_filename($File::Find::name);
return unless $wanted_types{$type}; return unless $wanted_types{$type};
$binfiles{$File::Find::name} = 1; my $name = $File::Find::name;
$name =~ s/^$tbbinfos->{tbbdir}\///;
$binfiles{$name} = 1;
}; };
find($wanted, $tbbinfos->{tbbdir}); find($wanted, $tbbinfos->{tbbdir});
return $tbbinfos->{binfiles} = [ keys %binfiles ]; return $tbbinfos->{binfiles} = [ keys %binfiles ];
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment