$EXPORT_TAGS{all} = [@EXPORT_OK];
}
+use Carp;
use Debbugs::Common qw(getbuglocation getbugcomponent);
use Params::Validate qw(:types validate_with);
($param{logfh}) = @_;
}
else {
- %param = validate_with(params => @_,
+ %param = validate_with(params => \@_,
spec => {bug_num => {type => SCALAR,
optional => 1,
},
}
);
}
- if (grep {exists $param{$_} and defined $param{$_}} qw(bug_num logfh log_name) ne 3) {
+ if (grep({exists $param{$_} and defined $param{$_}} qw(bug_num logfh log_name)) ne 1) {
croak "Exactly one of bug_num, logfh, or log_name must be passed and must be defined";
}
die "Unable to open bug log $param{log_name} for reading: $!";
}
elsif (exists $param{bug_num}) {
- my $location = getbuglocation($bug,'log');
- my $bug_log = getbugcomponent($bug,'log',$location);
+ my $location = getbuglocation($param{bug_num},'log');
+ my $bug_log = getbugcomponent($param{bug_num},'log',$location);
$self->{logfh} = IO::File->new($bug_log, 'r') or
die "Unable to open bug log $bug_log for reading: $!";
}