use warnings;
use Text::Tradition::Directory;
+binmode STDERR, ':utf8';
+
my( $dsn, $user, $pass ) = @ARGV;
my $connect_args = { dsn => $dsn };
my $tradition = $dir->lookup( $id );
print STDERR "Processing tradition " . $tradition->name . "\n";
foreach my $reading ( $tradition->collation->readings ) {
+ next if $reading->is_meta;
$reading->alter_text( strip_punct( $reading->text ) );
}
$tradition->collation->flatten_ranks;