testing for all upgrade script subs

This commit is contained in:
Graham Knop 2010-03-20 13:01:50 -05:00
parent 15ed4f97e4
commit 94baba20fc
28 changed files with 226 additions and 81 deletions

View file

@ -704,6 +704,8 @@ Example call:
my @cleanups;
while (@_) {
my $class = shift;
next
if !defined $class;
my $construct;
if ( ref $class ) {
my $object = $class;