Bug #112584 for XML-XPath: Useless use of /d modifier in transliteration operator from XML::XPath::Function::translate

Mon Feb 29 16:31:41 2016 me [...] eboxr.com - Ticket created

Subject:

Useless use of /d modifier in transliteration operator from XML::XPath::Function::translate

Warning noticed when running the tests with perl522 Show quoted text

> prove -Ilib -vw t/48translate.t

t/48translate.t .. ok 1 ok 2 ok 3 Useless use of /d modifier in transliteration operator at (eval 10) line 1. ok 4 1..4 ok All tests successful. Files=1, Tests=4, 0 wallclock secs ( 0.03 usr 0.01 sys + 0.07 cusr 0.00 csys = 0.11 CPU) Result: PASS This is coming from here in the eval sub translate { my $self = shift; my ($node, @params) = @_; die "translate: Wrong number of params\n" if @params != 3; local $_ = $params[0]->string_value; my $find = $params[1]->string_value; my $repl = $params[2]->string_value; eval "tr/\Q$find\E/\Q$repl\E/d"; die $@ if $@; return XML::XPath::Literal->new($_); }

Mon Feb 29 16:34:26 2016 me [...] eboxr.com - Correspondence added

suggested patch diff --git a/modules/XML-XPath/XML-XPath/lib/XML/XPath/Function.pm b/modules/XML-XPath/XML-XPath/lib/XML/XPath/Function.pm index 4aaa0ee..4fca61b 100644 --- a/modules/XML-XPath/XML-XPath/lib/XML/XPath/Function.pm +++ b/modules/XML-XPath/XML-XPath/lib/XML/XPath/Function.pm @@ -348,7 +348,10 @@ sub translate { local $_ = $params[0]->string_value; my $find = $params[1]->string_value; my $repl = $params[2]->string_value; - eval "tr/\Q$find\E/\Q$repl\E/d"; + { + no warnings; + eval "tr/\Q$find\E/\Q$repl\E/d"; + } die $@ if $@; return XML::XPath::Literal->new($_); } On Mon Feb 29 16:31:41 2016, atoomic wrote: Show quoted text

> Warning noticed when running the tests with perl522 > >

> > prove -Ilib -vw t/48translate.t

> t/48translate.t .. > ok 1 > ok 2 > ok 3 > Useless use of /d modifier in transliteration operator at (eval 10) > line 1. > ok 4 > 1..4 > ok > All tests successful. > Files=1, Tests=4, 0 wallclock secs ( 0.03 usr 0.01 sys + 0.07 cusr > 0.00 csys = 0.11 CPU) > Result: PASS > > > This is coming from here in the eval > > sub translate { > my $self = shift; > my ($node, @params) = @_; > die "translate: Wrong number of params\n" if @params != 3; > local $_ = $params[0]->string_value; > my $find = $params[1]->string_value; > my $repl = $params[2]->string_value; > eval "tr/\Q$find\E/\Q$repl\E/d"; > die $@ if $@; > return XML::XPath::Literal->new($_); > }

Wed Mar 02 06:50:43 2016 MANWAR [...] cpan.org - Correspondence added

Hi, Thanks for reporting the issue. I will get it patched asap. Best Regards, Mohammad S Anwar

Wed Mar 02 06:50:44 2016 The RT System itself - Status changed from 'new' to 'open'

Wed Mar 02 06:50:45 2016 MANWAR [...] cpan.org - Taken

Wed Mar 02 06:51:03 2016 MANWAR [...] cpan.org - Severity Normal added

Wed Mar 02 06:51:03 2016 MANWAR [...] cpan.org - Broken in 1.32 added

Wed Mar 02 07:32:10 2016 MANWAR [...] cpan.org - Correspondence added

Hi, Patched the distribution as below: https://github.com/manwar/XML-XPath https://metacpan.org/release/MANWAR/XML-XPath-1.33 Just a note, the proposed patch broke some of the unit tests, so I had to tweak little bit. Release note for Perl 5.22 was very handy to get to the bottom of the issue as below: Show quoted text

>>>

Useless use of /d modifier in transliteration operator (W misc) You have used the /d modifier where the searchlist has the same length as the replacelist. <<< Best Regards, Mohammad S Anwar

Wed Mar 02 14:51:59 2016 MANWAR [...] cpan.org - Correspondence added

Resolved.

Wed Mar 02 14:52:08 2016 MANWAR [...] cpan.org - Status changed from 'open' to 'resolved'

Wed Mar 02 14:52:09 2016 MANWAR [...] cpan.org - Fixed in 1.33 added