Patch: gtksourceview/language-specs/perl.lang

[Gavin Brown <gavin brown uk com>]

Hi there,

Please find attached a patch that adds support for Perl inline POD
documentation. It also adds in a "method call" pattern, and adds "our"
to the keyword list.

Cheers,

Gavin.

-- 
Gavin Brown
e: gavin brown uk com
w: http://jodrell.net/
PGP/GPG key ID: 891D8FCA

diff -ruN gtksourceview.orig/gtksourceview/language-specs/perl.lang gtksourceview/gtksourceview/language-specs/perl.lang
--- gtksourceview.orig/gtksourceview/language-specs/perl.lang	2004-04-27 16:36:31.000000000 +0100
+++ gtksourceview/gtksourceview/language-specs/perl.lang	2004-04-27 16:33:48.000000000 +0100
@@ -4,6 +4,11 @@
 	
 	<escape-char>\</escape-char>
 
+	<string _name = "Plain Old Documentation" style = "Comment" end-at-line-end = "FALSE">
+		<start-regex>^=pod</start-regex>
+		<end-regex>^=cut</end-regex>
+	</string>
+
 	<string _name = "String" style = "String" end-at-line-end = "TRUE">
 		<start-regex>&quot;</start-regex>
 		<end-regex>&quot;</end-regex>
@@ -31,6 +36,10 @@
 		<regex>&amp;[a-zA-Z_][a-zA-Z0-9_]*</regex>
 	</pattern-item>
 
+	<pattern-item _name = "Method Call" style = "Others">
+		<regex>-&gt;[a-zA-Z_][a-zA-Z0-9_]*</regex>
+	</pattern-item>
+
 	<keyword-list _name = "Keywords" style = "Keyword" case-sensitive="TRUE">
 		<keyword>eq</keyword>
 		<keyword>ne</keyword>
@@ -159,6 +168,7 @@
 		<keyword>import</keyword>
 		<keyword>local</keyword>
 		<keyword>my</keyword>
+		<keyword>our</keyword>
 		<keyword>package</keyword>
 		<keyword>defined</keyword>
 		<keyword>formline</keyword>