develooper Front page | perl.perl5.porters | Postings from June 2012

[perl #113772] [PATCH] 4181468 regen_perly.pl: support latest bison-2.5.1

From:
Father Chrysostomos via RT
Date:
June 27, 2012 12:50
Subject:
[perl #113772] [PATCH] 4181468 regen_perly.pl: support latest bison-2.5.1
Message ID:
rt-3.6.HEAD-28836-1340826638-1847.113772-15-0@perl.org
On Thu Jun 21 07:28:16 2012, rurban@cpanel.net wrote:
> 
> This is a bug report for perl from rurban@cpanel.net,
> generated with the help of perlbug 1.39 running under perl 5.16.0.
> 
> From 418146848b0563d6e7fbd635d5c87ab83b611a11 Mon Sep 17 00:00:00 2001
> From: Reini Urban <rurban@x-ray.at>
> Date: Thu, 21 Jun 2012 09:26:56 -0500
> Subject: [PATCH] regen_perly.pl: support latest bison-2.5.1
> 
> bison-2.5.1 adds less superfluous semicolons at the end of action blocks,
> but works fine.
> ---
>  regen_perly.pl |   10 +++++-----
>  1 file changed, 5 insertions(+), 5 deletions(-)
> 
> diff --git a/regen_perly.pl b/regen_perly.pl
> index dba4178..e0120fa 100644
> --- a/regen_perly.pl
> +++ b/regen_perly.pl
> @@ -73,11 +73,11 @@ unless ($version) { die <<EOF; }
>  Could not find a version of bison in your path. Please install bison.
>  EOF
>  
> -unless ($version =~ /\b(1\.875[a-z]?|2\.[0134])\b/) { die <<EOF; }
> +unless ($version =~ /\b(1\.875[a-z]?|2\.[01345])\b/) { die <<EOF; }
>  
>  You have the wrong version of bison in your path; currently 1.875
> -2.0, 2.1, 2.3 or 2.4 is required.  Try installing
> -    http://ftp.gnu.org/gnu/bison/bison-2.4.1.tar.gz
> +2.0, 2.1, 2.3, 2.4 or 2.5 is required.  Try installing
> +    http://ftp.gnu.org/gnu/bison/bison-2.5.1.tar.gz
>  or similar.  Your bison identifies itself as:
>  
>  $version
> @@ -114,8 +114,8 @@ unlink $tmpc_file;
>  open my $tmph_fh, '<', $tmph_file or die "Can't open $tmph_file: $!\n";
>  
>  my $endcore_done = 0;
> -# Token macros need to be generated manually on bison 2.4
> -my $gather_tokens = ($version =~ /\b2\.4\b/ ? undef : 0);
> +# Token macros need to be generated manually from bison 2.4 on
> +my $gather_tokens = ($version =~ /\b2\.[45]\b/ ? undef : 0);
>  my $tokens;
>  while (<$tmph_fh>) {
>      print $h_fh "#ifdef PERL_CORE\n" if $. == 1;

Thank you.  Applied as 2434f6283.

-- 

Father Chrysostomos


---
via perlbug:  queue: perl5 status: new
https://rt.perl.org:443/rt3/Ticket/Display.html?id=113772



nntp.perl.org: Perl Programming lists via nntp and http.
Comments to Ask Bjørn Hansen at ask@perl.org | Group listing | About