[SVN] Problems with Perl syntax

[Brad Choate]

I'm seeing several issues with the Perl grammar lately. Here are some  
cases that are failing / crashing for me...


#1

my @list = ('testing', 'one', 'two', 'test');
s/test/ing/ foreach @list;

or

s/x/z/ if $test;

#2

Create a new document, Perl syntax
type: "qr/"... TextMate hangs upon hitting the "r" key.


#3

if ($this =~ /that/s) {
	# highlighting from this point is off...
}

or

if ($this =~ m/that/s) {
	# highlighting from this point is off...
}

-Brad