some debugger-friendly params

[scpubgit/stemmaweb.git] / script / stemmaweb_test.pl

diff --git a/script/stemmaweb_test.pl b/script/stemmaweb_test.pl
index 7274133..93f9c49 100755 (executable)
--- a/script/stemmaweb_test.pl
+++ b/script/stemmaweb_test.pl
@@ -1,4 +1,5 @@
 #!/usr/bin/env perl
+eval { no warnings; $DB::deep = 1000; binmode $DB::OUT, ':utf8' };
 
 use Catalyst::ScriptRunner;
 Catalyst::ScriptRunner->run('stemmaweb', 'Test');