testing for all upgrade script subs
This commit is contained in:
parent
15ed4f97e4
commit
94baba20fc
28 changed files with 226 additions and 81 deletions
|
|
@ -704,6 +704,8 @@ Example call:
|
|||
my @cleanups;
|
||||
while (@_) {
|
||||
my $class = shift;
|
||||
next
|
||||
if !defined $class;
|
||||
my $construct;
|
||||
if ( ref $class ) {
|
||||
my $object = $class;
|
||||
|
|
|
|||
Loading…
Add table
Add a link
Reference in a new issue