[Bug-AUCTeX] Re: preview-1.284; Building documentation from CVS fails

[Stefan Husmann]

Am 15.08.2010 21:03, schrieb Ralf Angeli:
> * Stefan Husmann (2010-08-15) writes:
> 
>> Testing is possible: Using perl 5.10.1 auctex-cvs builds fine.
> 
> My other mail did not arrive yet, so I'm replying to yours again.  It
> seems that in Perl 5.12 the result of `split' is not put into 
> address@hidden'.  (If
> it should indeed do that.  The documentation of `split' does not mention
> anything like this.)  The following patch seems to get rid of the issue.
> Does anybody see a problem with it?
> 
> 
> --- preview-dtxdoc.pl 3 Feb 2008 15:18:38 -0000       1.3
> +++ preview-dtxdoc.pl 15 Aug 2010 18:45:58 -0000
> @@ -104,9 +104,9 @@
>      # Braces WITHIN bars should be escaped like so: @{ @}
>      # and |..| translates to @code{..} or @file{..} depending on content
>      # and to .. if in {quote}
> -    split /\|/;
> +    @chunks = split /\|/;
>      $odd=0;
> -    COMMAND: foreach (@_) {
> +    COMMAND: foreach (@chunks) {
>       if ($odd==0) {
>           $odd=1;
>       } else {
> @@ -122,7 +122,7 @@
>           $odd=0;
>       }
>      }
> -    $_=join("",@_);
> +    $_=join("",@chunks);
>      # Argh! mixed types occurs in @address@hidden@file{..}
>      # Should be @address@hidden
>      s/address@hidden(\S*?)\}(\S*)address@hidden/address@hidden/g;
> 
> 

Hello,

thank you very much, the patch works fine here.

Regards Stefan