[Rt-commit] rt branch, 4.0-trunk, updated. rt-4.0.0rc8-150-g137967c

Shawn Moore sartak at bestpractical.com
Wed Apr 20 11:17:17 EDT 2011


The branch, 4.0-trunk has been updated
       via  137967c4ca4ec77d70e85221073253d68364c616 (commit)
      from  0f6598b82a3cc2e3a54a34dfc494aa27f9c036cd (commit)

Summary of changes:
 lib/RT/Articles.pm |    4 ++--
 1 files changed, 2 insertions(+), 2 deletions(-)

- Log -----------------------------------------------------------------
commit 137967c4ca4ec77d70e85221073253d68364c616
Author: Shawn M Moore <sartak at bestpractical.com>
Date:   Wed Apr 20 11:05:17 2011 -0400

    Parenthesize our "for qw()"s
    
        5.14 warns about them now

diff --git a/lib/RT/Articles.pm b/lib/RT/Articles.pm
index 355a2bd..b25c514 100644
--- a/lib/RT/Articles.pm
+++ b/lib/RT/Articles.pm
@@ -583,7 +583,7 @@ sub Search {
 
 
     require Time::ParseDate;
-    foreach my $date qw(Created< Created> LastUpdated< LastUpdated>) {
+    foreach my $date (qw(Created< Created> LastUpdated< LastUpdated>)) {
         next unless ( $args{$date} );
         my $seconds = Time::ParseDate::parsedate( $args{$date}, FUZZY => 1, PREFER_PAST => 1 );
         my $date_obj = RT::Date->new( $self->CurrentUser );
@@ -791,7 +791,7 @@ sub Search {
         );
     }
 
-    foreach my $field qw(Name Summary Class) {
+    foreach my $field (qw(Name Summary Class)) {
 
         my @MatchLike =
           ( ref $args{ $field . "~" } eq 'ARRAY' )

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


More information about the Rt-commit mailing list