Go to:
Gentoo Home
Documentation
Forums
Lists
Bugs
Planet
Store
Wiki
Get Gentoo!
Gentoo's Bugzilla – Attachment 310389 Details for
Bug 413927
app-admin/perl-cleaner add x32 abi support
Home
|
New
–
[Ex]
|
Browse
|
Search
|
Privacy Policy
|
[?]
|
Reports
|
Requests
|
Help
|
New Account
|
Log In
[x]
|
Forgot Password
Login:
[x]
[patch]
Add x32 support to perl-cleaner
0001-Add-x32-support.patch (text/plain), 2.22 KB, created by
Tim Harder
on 2012-04-29 02:38:25 UTC
(
hide
)
Description:
Add x32 support to perl-cleaner
Filename:
MIME Type:
Creator:
Tim Harder
Created:
2012-04-29 02:38:25 UTC
Size:
2.22 KB
patch
obsolete
>From 67bd3f0ec065dbb60a2ffd7eb47ff26a2c54f222 Mon Sep 17 00:00:00 2001 >From: Tim Harder <radhermit@gentoo.org> >Date: Sat, 28 Apr 2012 19:31:45 -0700 >Subject: [PATCH] Add x32 support > >--- > perl-cleaner | 8 ++++---- > 1 files changed, 4 insertions(+), 4 deletions(-) > >diff --git a/perl-cleaner b/perl-cleaner >index fbf5ae1..3534016 100755 >--- a/perl-cleaner >+++ b/perl-cleaner >@@ -87,7 +87,7 @@ ph_clean() { > > veinfo 1 "Locating ph files for removal" > eindent "" >- for i in /usr/lib64/perl5 /usr/lib/perl5 ; do >+ for i in /usr/lib{,64,x32}/perl5 ; do > [[ ! -d ${i} ]] && continue > veinfo 4 "...in ${i}" > while IFS= read -r -d $'\0' file ; do >@@ -214,7 +214,7 @@ update_packages(){ > while read -r type file ; do > shopt -s extglob > [[ ${type} == obj ]] || [[ ${type} == sym ]] || continue >- [[ ${file} =~ ^/usr/(share|lib(32|64)?)/perl5 ]] || continue >+ [[ ${file} =~ ^/usr/(share|lib(32|64|x32)?)/perl5 ]] || continue > file=${file% +(!([[:space:]])) +([[:digit:]])} > shopt -u extglob > if ${FORCE} || outdated_path "${file}" ; then >@@ -248,7 +248,7 @@ update_packages(){ > > if ${LIBPERL} ; then > # We assume the broken libs have all bin or lib in their path >- broken_libs="$(scanelf -qBn < <(awk '/^(obj|sym) [^ ]*\/(s?bin|lib(32|64)?)\// && ! /^obj [^ ]*\/usr\/lib\/debug\//{ print $2 }' ${content} ) | grep -o 'libperl\.so\.[0-9.]*' | sort -u )" >+ broken_libs="$(scanelf -qBn < <(awk '/^(obj|sym) [^]*\/(s?bin|lib(32|64|x32)?)\// && ! /^obj [^ ]*\/usr\/lib\/debug\//{ print $2 }' ${content} ) | grep -o 'libperl\.so\.[0-9.]*' | sort -u )" > if [[ -n "${broken_libs}" ]] ; then > if ${FORCE} || [[ ${broken_libs} != ${SONAME} ]] ; then > PKGS_TO_REMERGE+=" ${CATPKGVER}" >@@ -315,7 +315,7 @@ leftovers() { > veinfo 1 "or edited. This script cannot deal with them." > vecho 1 > >- for i in /usr/{share,lib{,32,64}}/perl5 ; do >+ for i in /usr/{share,lib{,32,64,x32}}/perl5 ; do > [[ -d $i ]] && perlpath[${#perlpath[*]}]="$(realpath $i 2>/dev/null )" > done > [[ ${#perlpath[*]} == 0 ]] && return >-- >1.7.8.5 >
You cannot view the attachment while viewing its details because your browser does not support IFRAMEs.
View the attachment on a separate page
.
View Attachment As Diff
View Attachment As Raw
Actions:
View
|
Diff
Attachments on
bug 413927
: 310389