<div>Regards,</div><div><br></div><div>I am implementing RT4 on Perl 5.14, and get the following warning when starting RT: </div><div><br></div><div>---</div><div>[Thu Jun  9 04:40:20 2011] [warning]: Use of qw(...) as parentheses is deprecated at /opt/rt4/sbin/../lib/RT/Articles.pm line 794. (/opt/rt4/sbin/../lib/RT/Articles.pm:794)</div>
<div>---</div><div><br></div><div>Historically we could do: </div><div><br></div><div>    for my $item qw(a b c){ . . . }</div><div> </div><div> But this is deprecated since version 5.13.5 of Perl [1]</div><div><br></div>
<div>I know it&#39;s a harmless warning, but I&#39;ll fix it by doing the following:  Patch [2] </div><div><br></div><div>diff --git a/Articles.pm b/Articles.pm</div><div>index 355a2bd..b25c514 100644</div><div>--- a/Articles.pm</div>
<div>+++ b/Articles.pm</div><div>@@ -583,7 +583,7 @@ sub Search {</div><div> </div><div> </div><div>     require Time::ParseDate;</div><div>-    foreach my $date qw(Created&lt; Created&gt; LastUpdated&lt; LastUpdated&gt;) {</div>
<div>+    foreach my $date (qw(Created&lt; Created&gt; LastUpdated&lt; LastUpdated&gt;)) {</div><div>         next unless ( $args{$date} );</div><div>         my $seconds = Time::ParseDate::parsedate( $args{$date}, FUZZY =&gt; 1, PREFER_PAST =&gt; 1 );</div>
<div>         my $date_obj = RT::Date-&gt;new( $self-&gt;CurrentUser );</div><div>@@ -791,7 +791,7 @@ sub Search {</div><div>         );</div><div>     }</div><div> </div><div>-    foreach my $field qw(Name Summary Class) {</div>
<div>+    foreach my $field (qw(Name Summary Class)) {</div><div> </div><div>         my @MatchLike =</div><div>           ( ref $args{ $field . &quot;~&quot; } eq &#39;ARRAY&#39; )</div><div><br></div><div><br></div><div>
<br></div><div>[1] <a href="http://search.cpan.org/~jesse/perl-5.14.0/pod/perl5135delta.pod#Use_of_qw(...)_as_parentheses">http://search.cpan.org/~jesse/perl-5.14.0/pod/perl5135delta.pod#Use_of_qw(...)_as_parentheses</a></div>
<div>[2] <a href="http://www.covetel.com.ve/0001-Fixing-Warning-of-qw.patch">http://www.covetel.com.ve/0001-Fixing-Warning-of-qw.patch</a></div><br>-- <br>Walter Vargas<br>GNU/Linux ID: 269566<br>Debian Of Course!<br>Cooperativa Venezolana de Tecnologías Libres R.S.<br>
Coordinador General. <br>@Movil 04165023755<br>@sip: <a href="http://sip.covetel.com.ve">sip.covetel.com.ve</a> Ext 276002<br>Táchira - Venezuela.<br>