| Subject: | [PATCH] use parens around qw() to get rid of deprecation warning in Perl 5.14 |
Attached patch fixes two occurrences of qw() with out parens around it. This fixes the
deprecation warnings with 5.14.
Mike
| Subject: | 0001-use-parens-around-qw-to-get-rid-of-deprecation-warni.patch |
From f77a35343a8d599209f7d4ba809a6575b4d6d92c Mon Sep 17 00:00:00 2001
From: mikegrb <mgreb@linode.com>
Date: Wed, 27 Jul 2011 10:55:42 -0400
Subject: [PATCH] use parens around qw() to get rid of deprecation warning in
Perl 5.14
---
bin/todo.pl | 4 ++--
1 files changed, 2 insertions(+), 2 deletions(-)
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};
}
--
1.7.5.4