perl.cvs.parrot
[Top] [All Lists]

[svn:parrot] r28702 - trunk/t/codingstd

Subject: [svn:parrot] r28702 - trunk/t/codingstd
From:
Date: Wed, 25 Jun 2008 22:10:19 -0700 PDT
Newsgroups: perl.cvs.parrot

Author: petdance
Date: Wed Jun 25 22:10:13 2008
New Revision: 28702

Modified:
   trunk/t/codingstd/pir_code_coda.t

Log:
regex tweaked so vim does not get confused

Modified: trunk/t/codingstd/pir_code_coda.t
==============================================================================
--- trunk/t/codingstd/pir_code_coda.t   (original)
+++ trunk/t/codingstd/pir_code_coda.t   Wed Jun 25 22:10:13 2008
@@ -66,7 +66,7 @@
 
     # append to the extra_coda array if coda-like text appears more than once
     my $vim_many = 0;
-    $vim_many++ while $buf =~ m{^ [# \t]* vim: }gmx;
+    $vim_many++ while $buf =~ m{^ [# \t]* vim[:] }gmx;
     my $emacs_many = 0;
     $emacs_many++ while $buf =~ m{^ [# \t]* Local \s Variables: }gmx;
     push @extra_coda => "$path\n"

<Prev in Thread] Current Thread [Next in Thread>
  • [svn:parrot] r28702 - trunk/t/codingstd, petdance <=