From: Anders Kaseorg <andersk@mit.edu>
Date: Sat, 7 Oct 2017 08:44:30 +0000 (-0400)
Subject: BarnOwl::Module::RT: Fix Perl warnings
X-Git-Url: https://snippets.scripts.mit.edu/gitweb.cgi/Scripts/git/.git/commitdiff_plain/0dd4bf7727b13e23b9734cb89c687a348c068cad

BarnOwl::Module::RT: Fix Perl warnings

Signed-off-by: Anders Kaseorg <andersk@mit.edu>
---

diff --git a/rt/BarnOwl/lib/BarnOwl/Module/RT.pm b/rt/BarnOwl/lib/BarnOwl/Module/RT.pm
index b4ee67f..4963eff 100644
--- a/rt/BarnOwl/lib/BarnOwl/Module/RT.pm
+++ b/rt/BarnOwl/lib/BarnOwl/Module/RT.pm
@@ -48,7 +48,7 @@ if(-r "$file_path") {
     close($fh);
 }
 
-my $file_path = "$cfg/rtcommands";
+$file_path = "$cfg/rtcommands";
 if(-r "$file_path") {
     open(my $fh, "<:encoding(UTF-8)", "$file_path") or die("Unable to read $file_path:$!\n");
     while(defined(my $line = <$fh>)) {
@@ -165,7 +165,7 @@ rtcommands:
 
 	    It is a good place to put custom queries which will be used frequently.
 	  Examples:
-	    "list-owner (\w+)" "rt list -o +Created \"((Status=new or Status=stalled or Status=open) and (Queue='\$q') and 'Owner='\$1')\""
+	    "list-owner (\\w+)" "rt list -o +Created \"((Status=new or Status=stalled or Status=open) and (Queue='\$q') and 'Owner='\$1')\""
 	
 	    \$t is the current ticket
 	    \$q is the current queue