On Fri, 25 Jul 2014 21:53:45 +0200, Brian Fraser <[email protected]>
wrote:

> In perl.git, the branch blead has been updated
> 
> <http://perl5.git.perl.org/perl.git/commitdiff/ecd78e215c9b4ab3f3ab71b30e76bbead372a84e?hp=a872f748481d44baa8bc0f6eb29659782c96ba7f>
> 
> - Log -----------------------------------------------------------------
> commit ecd78e215c9b4ab3f3ab71b30e76bbead372a84e
> Author: Brian Fraser <[email protected]>
> Date:   Fri Jul 25 19:46:41 2014 +0200
> 
>     Configure: Handle hyphens when searching cpp symbols
>
>     This is really just for Android, which in Configure is
>     known as linux-android; the hyphen is passes as-is to
>     the preprocessor, which handles it as a minus.
>     
>     So don't do that.
> -----------------------------------------------------------------------
> 
> Summary of changes:
>  Configure | 4 +++-
>  1 file changed, 3 insertions(+), 1 deletion(-)

I find this patch overly complicated and would suggest to replace it
with this:

# Maybe put other stuff here too.
./tr '-' '_' <<EOSH >>Cppsym.know
$osname
EOSH
./tr '[a-z]' '[A-Z]' < Cppsym.know > Cppsym.a
./tr '[A-Z]' '[a-z]' < Cppsym.know > Cppsym.b
$cat Cppsym.know > Cppsym.c
$cat Cppsym.a Cppsym.b Cppsym.c | $tr ' ' $trnl | $sort | $uniq > Cppsym.know
$rm -f Cppsym.a Cppsym.b Cppsym.c

Doing it like this is not only shorter and simpler, but also makes it
way more obvious that this tr is *ONLY* for the $osname, as all symbols
stated just above do not have a dash. The comment just above the large
list could state this explicitely

If you agree, I'll commit that to meta and regen

> diff --git a/Configure b/Configure
> index 8d802fd..c86e42f 100755
> --- a/Configure
> +++ b/Configure
> @@ -22066,11 +22066,13 @@ EOSH
>  cat <<EOSH >>Cppsym.know
>  $osname
>  EOSH
> +./tr '-' '_' < Cppsym.know > Cppsym.know.tmp
> +$cat Cppsym.know.tmp > Cppsym.know
>  ./tr '[a-z]' '[A-Z]' < Cppsym.know > Cppsym.a
>  ./tr '[A-Z]' '[a-z]' < Cppsym.know > Cppsym.b
>  $cat Cppsym.know > Cppsym.c
>  $cat Cppsym.a Cppsym.b Cppsym.c | $tr ' ' $trnl | $sort | $uniq > Cppsym.know
> -$rm -f Cppsym.a Cppsym.b Cppsym.c
> +$rm -f Cppsym.a Cppsym.b Cppsym.c Cppsym.know.tmp
>  cat <<EOSH > Cppsym
>  $startsh
>  if $test \$# -gt 0; then

-- 
H.Merijn Brand  http://tux.nl   Perl Monger  http://amsterdam.pm.org/
using perl5.00307 .. 5.19   porting perl5 on HP-UX, AIX, and openSUSE
http://mirrors.develooper.com/hpux/        http://www.test-smoke.org/
http://qa.perl.org   http://www.goldmark.org/jeff/stupid-disclaimers/

Attachment: signature.asc
Description: PGP signature

Reply via email to