[AUCTeX-diffs] Changes to auctex/doc/preview-dtxdoc.pl,v

[Ralf Angeli]

CVSROOT:        /cvsroot/auctex
Module name:    auctex
Changes by:     Ralf Angeli <angeli>    10/08/29 18:33:17

Index: preview-dtxdoc.pl
===================================================================
RCS file: /cvsroot/auctex/auctex/doc/preview-dtxdoc.pl,v
retrieving revision 1.3
retrieving revision 1.4
diff -u -b -r1.3 -r1.4
--- preview-dtxdoc.pl   3 Feb 2008 15:18:38 -0000       1.3
+++ preview-dtxdoc.pl   29 Aug 2010 18:33:17 -0000      1.4
@@ -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;