in reply to Re: Using the syntax checking feature in vim perlsupport plugin
in thread Using the syntax checking feature in vim perlsupport plugin

So the warning that WWW::Mechanize is giving is from this subroutine here:

sub _is_tainted {
    no warnings qw(void uninitialized);

    return !eval { join('', shift), kill 0; 1 }; 
} # _is_tainted

[download]

The code says to ignore the void warnings so I'm not sure why perlsupport is complaining about it. Any fix?

$PM = "Perl Monk's";
$MCF = "Most Clueless Friar Abbot Bishop Pontiff Deacon Curate";
$nysus = $PM . ' ' . $MCF;
Click here if you love Perl Monks

Replies are listed 'Best First'.
Re^3: Using the syntax checking feature in vim perlsupport plugin
by hippo (Archbishop) on Apr 15, 2016 at 15:51 UTC

    My version of WWW::Mechanize gives no such warning:

    $ cat wwwm.pl
use strict;
use warnings;
use WWW::Mechanize;
$ perl -cw wwwm.pl
wwwm.pl syntax OK

    [download]

    Either you are loading it differently or you are on a different version of WWW::Mechanize - mine is 1.74

[reply]
[d/l]

      Yeah, I'm on 1.73 but when I looked at the source for 1.75 it had the same exact lines so I didn't bother to install it. I'm invoking it the same way you are.

      I guess I'll try upgrading. I installed the module using Debian package manager. What's the best practice for overriding the stock Perl module in Debian? This is another area I'm weak on.

      Update: This thread looks like a pretty thorough discussion of the options: http://www.perlmonks.org/?node_id=753416

      $PM = "Perl Monk's";
      $MCF = "Most Clueless Friar Abbot Bishop Pontiff Deacon Curate";
      $nysus = $PM . ' ' . $MCF;
      Click here if you love Perl Monks

[reply]

      OK, managed to create a backport and confirmed that my script is now using version 1.75 of WWW::Mechanize. I'm still getting that damn warning, though. Do you think it might be my version of Perl? Update: I'm using perl 5.20.2.

      $PM = "Perl Monk's";
      $MCF = "Most Clueless Friar Abbot Bishop Pontiff Deacon Curate";
      $nysus = $PM . ' ' . $MCF;
      Click here if you love Perl Monks

[reply]
[d/l]

In Section Seekers of Perl Wisdom