--- trunk/run.pl 2007/10/30 23:32:58 921 +++ trunk/run.pl 2007/10/31 00:26:45 924 @@ -299,23 +299,11 @@ debug => $debug, }); - sub iterate_over { - my ( $what, $error ) = @_; - my @result; - if ( ref( $what ) eq 'ARRAY' ) { - @result = @{ $what }; - } elsif ($db_config->{input}) { - @result = ( $what ); - } else { - $error->() if ref($error) eq 'CODE'; - } - return @result; - } # # prepare output # - my @outputs = iterate_over( $db_config->{output}, sub { + my @outputs = force_array( $db_config->{output}, sub { $log->error("Database $database doesn't have any outputs defined. Do you want to remove it from configuration?" ); } ); @@ -346,7 +334,7 @@ # - my @inputs = iterate_over( $db_config->{input}, sub { + my @inputs = force_array( $db_config->{input}, sub { $log->info("database $database doesn't have inputs defined"); } );