[Bps-public-commit] App-Todo branch, master, updated. 1.0-1-ge518ba4

[Thomas Sibley]

The branch, master has been updated
       via  e518ba458a471c1b11fbf4d5a2d105453a15cefb (commit)
      from  0698fe5cbb7824e1827cb053204f867ce03df0f4 (commit)

Summary of changes:
 bin/todo.pl |    4 ++--
 1 files changed, 2 insertions(+), 2 deletions(-)

- Log -----------------------------------------------------------------
commit e518ba458a471c1b11fbf4d5a2d105453a15cefb
Author: mikegrb <mgreb at linode.com>
Date:   Wed Jul 27 10:55:42 2011 -0400

    use parens around qw() to get rid of deprecation warning in Perl 5.14
    
    Signed-off-by: Thomas Sibley <trs at bestpractical.com>

diff --git a/bin/todo.pl b/bin/todo.pl
index 004ccfe..72e0adc 100755
--- a/bin/todo.pl
+++ b/bin/todo.pl
@@ -283,7 +283,7 @@ sub list_tasks {
     my $tag;
     $query .= "/tag/$tag" while $tag = shift @{$args{tag}};
 
-    for my $key qw(group priority due) {
+    for my $key (qw(group priority due)) {
         $query .= "/$key/$args{$key}" if $args{$key};
     }
 
@@ -477,7 +477,7 @@ sub download_textfile {
     my $tag;
     $query .= "/tag/$tag" while $tag = shift @{$args{tag}};
 
-    for my $key qw(group priority due) {
+    for my $key (qw(group priority due)) {
         $query .= "/$key/$args{$key}" if $args{$key};
     }
 

-----------------------------------------------------------------------