[perl mode] Upgrade to 0.09

codemirror · Oct 16, 2011 · 064283f · 064283f
1 parent 2d307e2
commit 064283f
Show file tree

Hide file tree

Showing 2 changed files with 15 additions and 3 deletions.
diff --git a/mode/perl/index.html b/mode/perl/index.html
@@ -13,8 +13,6 @@
     <h1>CodeMirror 2: Perl mode</h1>
 
 <div><textarea id="code" name="code">
-// Demo code
-
 #!/usr/bin/perl
 
 use Something qw(func1 func2);
@@ -23,7 +21,19 @@ <h1>CodeMirror 2: Perl mode</h1>
 my $s1 = qq'single line';
 our $s2 = q(multi-
               line);
+
+=item Something
+	Example.
+=cut
+
+my $html=<<'HTML'
+<html>
+<title>hi!</title>
+</html>
+HTML
+
 print "first,".join(',', 'second', qq~third~);
+
 if($s1 =~ m[(?<!\s)(l.ne)\z]o) {
 	$h->{$1}=$$.' predefined variables';
 	$s2 =~ s/\-line//ox;

diff --git a/mode/perl/perl.js b/mode/perl/perl.js
@@ -1,4 +1,4 @@
-// CodeMirror2 mode/perl/perl.js (text/x-perl) beta 0.08 (2011-10-11)
+// CodeMirror2 mode/perl/perl.js (text/x-perl) beta 0.09 (2011-10-15)
 // This is a part of CodeMirror from https://github.com/sabaca/CodeMirror_mode_perl (mail@sabaca.com)
 CodeMirror.defineMode("perl",function(config,parserConfig){
 	// http://perldoc.perl.org
@@ -505,6 +505,8 @@ CodeMirror.defineMode("perl",function(config,parserConfig){
 		if(stream.match(/^<<(?=\w)/)){			// NOTE: <<SOMETHING\n...\nSOMETHING\n
 			stream.eatWhile(/\w/);
 			return tokenSOMETHING(stream,state,stream.current().substr(2))}
+		if(stream.sol()&&stream.match(/^\=item(?!\w)/)){// NOTE: \n=item...\n=cut\n
+			return tokenSOMETHING(stream,state,'=cut')}
 		var ch=stream.next();
 		if(ch=='"'||ch=="'"){				// NOTE: ' or " or <<'SOMETHING'\n...\nSOMETHING\n or <<"SOMETHING"\n...\nSOMETHING\n
 			if(stream.prefix(3)=="<<"+ch){