From 0dd4bf7727b13e23b9734cb89c687a348c068cad Mon Sep 17 00:00:00 2001 From: Anders Kaseorg Date: Sat, 7 Oct 2017 04:44:30 -0400 Subject: [PATCH] BarnOwl::Module::RT: Fix Perl warnings Signed-off-by: Anders Kaseorg --- rt/BarnOwl/lib/BarnOwl/Module/RT.pm | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) 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 -- 2.44.0