| Subject: | Bare qw() Deprecation Warnings in 5.14 |
Perl 5.14 added a warning for the use of qw() in a for loop without
enclosing parentheses. The attached patch fixes this.
| Subject: | 0001-Fixed-bare-qw-deprecation-warning-for-Perl-5.14.patch |
From 1e10ed61b88ce386339aef37fde34e52df51479a Mon Sep 17 00:00:00 2001
From: chromatic <chromatic@wgz.org>
Date: Wed, 3 Aug 2011 13:39:34 -0700
Subject: [PATCH] Fixed bare qw() deprecation warning for Perl 5.14.
---
lib/Template/Plugin/DateTime.pm | 2 +-
1 files changed, 1 insertions(+), 1 deletions(-)
diff --git a/lib/Template/Plugin/DateTime.pm b/lib/Template/Plugin/DateTime.pm
index a4a12f9..4901a45 100644
--- a/lib/Template/Plugin/DateTime.pm
+++ b/lib/Template/Plugin/DateTime.pm
@@ -25,7 +25,7 @@ sub new
my %args = ref($_[0]) eq 'HASH' ? %{$_[0]} : ();
# boolean args: now, today, last_day_of_month
- foreach my $arg qw(now today last_day_of_month) {
+ foreach my $arg (qw(now today last_day_of_month)) {
if (delete $args{$arg}) {
return DateTime->$arg(%args);
}
--
1.7.1