23.0.50; (perl mode) Minor fontification issue

[Tim Van Holder]

The following lines fontify correctly in cperl-mode, but not in
perl-mode: the first quote in the '(#JV.DEVT)' string literal does not
seem to register. Removing the { after the sub restores correct
fontification (but obviously breaks the code).

 skipjv('CONT', sub { (job_variable_value('(#JV.DEVT)') eq 'TAPE'); });
 skipjv('CONT', sub { (job_variable_value('(#JV.DEVT)') eq 'CASS'); });
 skipjv('CONT', sub { (job_variable_value('(#JV.DEVT)') eq 'DISK'); });
 skipjv('ROBI', sub { (job_variable_value('(#JV.DEVT)') eq 'ROBI'); });


In GNU Emacs 23.0.50.1 (i686-pc-linux-gnu, GTK+ Version 2.8.20)
 of 2007-11-30 on leeloo
Windowing system distributor `RealVNC Ltd', version 11.0.3370
configured using `configure  '--with-gtk' '--with-xpm' '--with-jpeg' 
'--with-gif' '--with-tiff' '--with-png' '--with-x' '--with-kerberos' 
'--with-kerberos5''