289 |
$self->{"alias"},"in",$cadir); |
$self->{"alias"},"in",$cadir); |
290 |
return $idx?1:0; |
return $idx?1:0; |
291 |
}; |
}; |
292 |
|
# is the new one any different from the previous (i.e. is the CA indexed?) |
293 |
|
$#{$self->{"cafile"}} >= 0 and |
294 |
|
$cafile eq $self->{"cafile"}[$#{$self->{"cafile"}}] and return 1; |
295 |
push @{$self->{"cafile"}}, $cafile; |
push @{$self->{"cafile"}}, $cafile; |
296 |
$::log->verb(3,"Added CA file $idx: $cafile"); |
$::log->verb(3,"Added CA file $idx: $cafile"); |
297 |
} while(++$idx); |
} while(++$idx); |