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 `...@_'. (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 @code{....@var{..}@file{..}
> # Should be @file{...@var{..}..}
> s/\...@code(\S*?)\}(\S*)\...@file\{/\...@file$1$2/g;
>
>
Hello,
thank you very much, the patch works fine here.
Regards Stefan
_______________________________________________
bug-auctex mailing list
[email protected]
http://lists.gnu.org/mailman/listinfo/bug-auctex
