|
my ($self, $c, $rec, $set) = @_; |
At this point, $set might be undef but it is used in lines 65 to 86 which pollutes the error log with lots of warnings. So, these sections should either be skipped, when $set is undef or $set should be set to '' or something like that.