streamline logging

1 files changed, 3 insertions, 4 deletions

diff --git a/bin/events2md.pl b/bin/events2md.pl
index 7192cb0..b0772d3 100755
--- a/bin/events2md.pl
+++ b/bin/events2md.pl
@@ -25,6 +25,9 @@ use Object::Groupware::Calendar;
 if ( IO::Interactive::Tiny::is_interactive() ) {
 	Log::Any::Adapter->set( 'Screen', default_level => 'info' );
 }
+else {
+	use Log::Any::Adapter ( 'Stderr', default_level => 'info' );
+}
 
 # set defaults and parse command-line options
 my ($BASE_URI, $CALENDAR_URI, $SKELDIR, $OUTPUT_FILE, $CALENDAR_LANG,
@@ -135,10 +138,6 @@ elsif ( $base_uri->scheme eq 'file' ) {
 		);
 	}
 }
-if ( $log->is_trace ) {
-	use DDP;
-	p $calendar;
-}
 
 # select subset of calendar events
 $log->debug('serialize calendar events...');