OK, this was apparently a failure of my Perl-fu.  I had written something like

my $check = sub {
  # determine if $_ is suitable
};

@list = grep $check, @other_list;

Thinking that Perl would helpfully invoke $check.  It won't - it just
looks at the boolean value of $check, and it's a nonzero scalar so
that's "true".

Attached is a patch - can you try it out?  If you need a fresh copy of
Planner.pm, you can get it here:
  http://github.com/zmanda/amanda/raw/tags/3_1_0/perl/Amanda/Recovery/Planner.pm

Dustin

-- 
Open Source Storage Engineer
http://www.zmanda.com

Attachment: marc.patch
Description: Binary data

Reply via email to