<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's a harmless warning, but I'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< Created> LastUpdated< LastUpdated>) {</div>
<div>+ foreach my $date (qw(Created< Created> LastUpdated< LastUpdated>)) {</div><div> next unless ( $args{$date} );</div><div> my $seconds = Time::ParseDate::parsedate( $args{$date}, FUZZY => 1, PREFER_PAST => 1 );</div>
<div> my $date_obj = RT::Date->new( $self->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 . "~" } eq 'ARRAY' )</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>