* 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;
--
Ralf
_______________________________________________
bug-auctex mailing list
[email protected]
http://lists.gnu.org/mailman/listinfo/bug-auctex
