Workaround syntax highlighting bug

textmate/perl.tmbundle#44
asb-capfan · Oct 24, 2020 · 2c4c333 · 2c4c333
1 parent e662436
commit 2c4c333
Show file tree

Hide file tree

Showing 3 changed files with 3 additions and 3 deletions.
diff --git a/Makefile.PL b/Makefile.PL
@@ -152,7 +152,7 @@ sub needs_Test
  my $code = 0;
  while (<TFILE>)
   {
-   last if ($code = /^\s*(use|require)\s+Test\b/);
+   last if ($code = m/^\s*(use|require)\s+Test\b/);
   }
  close(TFILE);
  warn "Skipping test $file needs 'Test.pm':$_" if $code;

diff --git a/pTk/counts b/pTk/counts
@@ -10,7 +10,7 @@ sub count
    while (<C>)
    {
     next if (/^\s*$/);
-    $match = /$file/ if (/^#/);
+    $match = m/$file/ if (/^#/);
     if ($match)
      {
       study;

diff --git a/pTk/mkmethods b/pTk/mkmethods
@@ -80,7 +80,7 @@ if (%{$table{WIDGET}} || %{$table{COMMAND}} || %{$table{IMAGE}})
    {
     while (<SRC>)
      {
-      my ($kind,$Widget,$list) =  /^(WIDGET|COMMAND|IMAGE)\(\("(\w+)",(("[^"]*",)*)NULL\)\)$/;
+      my ($kind,$Widget,$list) = m/^(WIDGET|COMMAND|IMAGE)\(\("(\w+)",(("[^"]*",)*)NULL\)\)$/;
       if (defined $Widget)
        {
         if (!defined ${$table{$kind}}{$Widget})