Re^3: File::Where->where_pm failure in forked children?

Ok, I figured out a solution myself :-)

#!perl

use Parallel::ForkManager;
use strict;
use warnings;

my $pm = new Parallel::ForkManager(2);
for my $i (1 .. 3) {
  my $pid = $pm->start and next;

  my @ret = ();
  my $code = "use File::Where; \@ret = File::Where->where_pm(\"File::W
+here\");";
  eval $code;
  print $ret[0]."\n";
  $pm->finish;
}
$pm->wait_all_children;
[download]

Comment on Re^3: File::Where->where_pm failure in forked children? Download Code

Replies are listed 'Best First'.
Re^4: File::Where->where_pm failure in forked children? by ikegami (Patriarch) on Mar 15, 2007 at 03:16 UTC
`my @ret = (); my $code = "use File::Where; \@ret = File::Where->where_pm(\"File::W +here\");"; eval $code;` [download] can be written more readably as: `eval("use File::Where"); die($@) if $@; my @ret = File::Where->where_pm("File::Where");` [download] or `require File::Where; import File::Where; my @ret = File::Where->where_pm("File::Where");` [download] These two snippets won't hide errors like yours did.	[reply] [d/l] [select]

Replies are listed 'Best First'.

Re^4: File::Where->where_pm failure in forked children?
by ikegami (Patriarch) on Mar 15, 2007 at 03:16 UTC

  my @ret = ();
  my $code = "use File::Where; \@ret = File::Where->where_pm(\"File::W
+here\");";
  eval $code;
[download]

can be written more readably as:

  eval("use File::Where");
  die($@) if $@;
  my @ret = File::Where->where_pm("File::Where");
[download]

  require File::Where;
  import  File::Where;
  my @ret = File::Where->where_pm("File::Where");
[download]

These two snippets won't hide errors like yours did.

[reply]
[d/l]
[select]