diff options
Diffstat (limited to 'inc/geshi/perl.php')
| -rw-r--r-- | inc/geshi/perl.php | 17 |
1 files changed, 12 insertions, 5 deletions
diff --git a/inc/geshi/perl.php b/inc/geshi/perl.php index 17d6eac27..d5564c4ba 100644 --- a/inc/geshi/perl.php +++ b/inc/geshi/perl.php @@ -4,17 +4,19 @@ * -------- * Author: Andreas Gohr (andi@splitbrain.org), Ben Keen (ben.keen@gmail.com) * Copyright: (c) 2004 Andreas Gohr, Ben Keen (http://www.benjaminkeen.org/), Nigel McNie (http://qbnz.com/highlighter/) - * Release Version: 1.0.7.5 - * CVS Revision Version: $Revision: 1.5 $ + * Release Version: 1.0.7.6 + * CVS Revision Version: $Revision: 1.7 $ * Date Started: 2004/08/20 - * Last Modified: $Date: 2005/10/22 07:52:59 $ + * Last Modified: $Date: 2006/01/05 07:20:16 $ * * Perl language file for GeSHi. * * CHANGES * ------- + * 2006/01/05 (1.0.2) + * - Used hardescape feature for ' strings (Cliff Stanford) * 2004/11/27 (1.0.1) - * - Added support for multiple object splitters + * - Added support for multiple object splitters * 2004/08/20 (1.0.0) * - First Release * @@ -48,7 +50,12 @@ $language_data = array ( 'COMMENT_SINGLE' => array(1 => '#'), 'COMMENT_MULTI' => array( '=pod' => '=cut'), 'CASE_KEYWORDS' => GESHI_CAPS_NO_CHANGE, - 'QUOTEMARKS' => array("'", '"'), + 'QUOTEMARKS' => array('"'), + 'HARDQUOTE' => array("'", "'"), // An optional 2-element array defining the beginning and end of a hard-quoted string + 'HARDESCAPE' => array('\\\'', "\\\\"), // Things that must still be escaped inside a hard-quoted string + // If HARDQUOTE is defined, HARDESCAPE must be defined + // This will not work unless the first character of each element is either in the + // QUOTEMARKS array or is the ESCAPE_CHAR 'ESCAPE_CHAR' => '\\', 'KEYWORDS' => array( 1 => array( |