From: Tara L Andrews <tla@mit.edu>
Date: Thu, 27 Sep 2012 11:53:09 +0000 (+0200)
Subject: cosmetic fixes
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=5b811c5e4881187fe10afa1247b8e4aa21f24cab;p=scpubgit%2Fstemmatology.git

cosmetic fixes
---

diff --git a/base/lib/Text/Tradition.pm b/base/lib/Text/Tradition.pm
index 6bd9293..74436e9 100644
--- 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
--- 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" );
 }