From: Uri Guttman Date: Tue, 22 Sep 2009 21:57:40 +0000 (-0400) Subject: cleaned up some debug prints X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?p=urisagit%2FStem.git;a=commitdiff_plain;h=b3d3e68ff7dcadd6d5a88197b6a04961c870656c cleaned up some debug prints --- diff --git a/lib/Stem/Log/Tail.pm b/lib/Stem/Log/Tail.pm index 6698f8f..c79f806 100644 --- a/lib/Stem/Log/Tail.pm +++ b/lib/Stem/Log/Tail.pm @@ -100,7 +100,7 @@ sub new { my $self = Stem::Class::parse_args( $attr_spec, @_ ) ; return $self unless ref $self ; -print "TAIL INT $self->{'interval'}\n" ; +#print "TAIL INT $self->{'interval'}\n" ; if ( my $interval = $self->{'interval'} ) { @@ -113,7 +113,7 @@ print "TAIL INT $self->{'interval'}\n" ; 'hard' => 1, ) ; -print "TIMER $self->{'timer'}\n" ; +#print "TIMER $self->{'timer'}\n" ; } @@ -128,7 +128,7 @@ sub tail_cmd { my( $self ) = @_ ; -print "TAILING\n" ; +#print "TAILING\n" ; local( *LOG ) ;