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

[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;


-- 
Ralf