cosmetic fixes

diff --git a/base/lib/Text/Tradition.pm b/base/lib/Text/Tradition.pm
index 6bd9293..74436e9 100644 (file)
--- a/base/lib/Text/Tradition.pm
+++ b/base/lib/Text/Tradition.pm
@@ -92,7 +92,6 @@ around 'witness' => sub {
 # Cope with witness sigil changes
 sub rename_witness {
        my( $self, $sig, $newsig ) = @_;
-       $DB::single = 1;
        my $wit = $self->witness( $sig );
        $self->throw( "No such witness $sig" ) unless $wit;
        $self->throw( "Cannot rename witness that has already been collated" )
@@ -261,7 +260,6 @@ try {
        $s->rename_witness( 'D', 'Invalid Sigil' );
        ok( 0, "Renamed witness with bad sigil" );
 } catch ( Text::Tradition::Error $e ) {
-       print STDERR $e->message . "\n";
        is( $s->witness('D'), $wit_d, "Held onto witness during bad rename" );
 }
 

diff --git a/base/t/text_tradition.t b/base/t/text_tradition.t
index e158f9b..74363d5 100644 (file)
--- a/base/t/text_tradition.t
+++ b/base/t/text_tradition.t
@@ -44,7 +44,6 @@ try {
        $s->rename_witness( 'D', 'Invalid Sigil' );
        ok( 0, "Renamed witness with bad sigil" );
 } catch ( Text::Tradition::Error $e ) {
-       print STDERR $e->message . "\n";
        is( $s->witness('D'), $wit_d, "Held onto witness during bad rename" );
 }