[ic] [interchange] Fix redundant sprintf errors in perl 5.22.0

Peter peter at pajamian.dhs.org
Sat Jun 24 22:23:24 UTC 2017

On 25/06/17 01:00, Stefan Hornburg (Racke) wrote:
>>> I suggest changing it to:
>>> no warnings qw(uninitialized numeric);
>>> no warnings qw(redundant) if $^V ge v5.22.0;
>>> Peter
> Doesn't seem to work though ...
> syntax error at /home/demo4/interchange/lib/Vend/Util.pm line 96, near "qw(redundant) if"

Reading perl docs it looks like this is implemented at compilation time
so run time constructs don't work.  Try this instead:

no if $^V ge v5.22.0, warnings => qw(redundant);

The above does not kick back any errors or warnings on 5.16.0.


More information about the interchange-users mailing list