On Thursday, November 14, 2002, at 04:26  PM, Michael G Schwern wrote:

On Thu, Nov 14, 2002 at 04:12:51PM +1100, Ken Williams wrote:
Oy, though. It's doing more work than it needs to. Why not just check
the exit value?

my $ok = !system($abs, '-e', "exit !eval 'require $ver; 1'");
$ perl -wle 'print "Its perl!" if !system("/bin/true", "-e", "exit !eval q{require 5.005; 1}")'
Its perl!
For some reason I didn't realize what the problem was, so I didn't realize you'd already solved it either. =) On to other matters...


-Ken



Reply via email to