Recognize functions with leading ampersand

dupontcy · Oct 28, 2011 · ad55b49 · ad55b49
1 parent 5dbd5be
commit ad55b49
Show file tree

Hide file tree

Showing 2 changed files with 2 additions and 2 deletions.
diff --git a/scripts/shBrushPerl.js b/scripts/shBrushPerl.js
@@ -57,7 +57,7 @@
 			{ regex: SyntaxHighlighter.regexLib.doubleQuotedString,	css: 'string' },
 			{ regex: SyntaxHighlighter.regexLib.singleQuotedString,	css: 'string' },
 			// currently ignoring single quote package separator and utf8 names
-			{ regex: /(?:[$@%*]|\$#)[a-zA-Z_](\w+|::)*/g,   		css: 'variable' },
+			{ regex: /(?:&amp;|[&$@%*]|\$#)[a-zA-Z_](\w+|::)*/g,   		css: 'variable' },
 			{ regex: /\b__(?:END|DATA)__\b[\s\S]*$/g,				css: 'comments' },
 			{ regex: /^=\w[\s\S]*?\n=cut\s*$/gm,					css: 'comments' },		// pod
 			{ regex: new RegExp(this.getKeywords(funcs), 'gm'),		css: 'functions' },

diff --git a/tests/brushes/perl.html b/tests/brushes/perl.html
@@ -11,7 +11,7 @@
 print $#array, $array[0];
 
 local $ENV{FOO} = qq[BAR $foo];
-call(func => "args", opt => q#val#);
+call(func => "args", opt => q#val#, code => \&amp;baz);
 
 =pod