What is this all about?
#!/usr/bin/perl use strict; use warnings; use FindBin qw($RealBin); use File::Find; use feature 'say'; find ({wanted =>\&wanted, follow => 1 }, ($RealBin . '/..', @INC)); sub wanted { if ($File::Find::name =~ m/App\/ipchgmon.pm$/) { # Changed from "perl" to "$^X" per Slaven Rezic's advice # in issue 144972. I wouldn't have got near this issue # on my own. Many thanks, Slaven. my $cmd = join " ", $^X, $File::Find::name, @ARGV; say qx($cmd 2>&1); exit; } }
Why aren't you using
#!/usr/bin/perl use App::ipchgmon; App::ipchgmon::run();
Of course, you'll need to move the top-level stuff into run, and fix the incorrect package name in the module.
In reply to Re: Unable to release modulino to CPAN
by ikegami
in thread Unable to release modulino to CPAN
by davies
For: | Use: | ||
& | & | ||
< | < | ||
> | > | ||
[ | [ | ||
] | ] |