From 86b58a0f1279c7d5860863154d104a672d0a4f77 Mon Sep 17 00:00:00 2001
From: Steve Hancock <perltidy@users.sourceforge.net>
Date: Sat, 25 Apr 2020 06:39:57 -0700
Subject: [PATCH] add sub write_tee_line

---
 lib/Perl/Tidy/LineSink.pm | 15 +++++++++++++++
 1 file changed, 15 insertions(+)

diff --git a/lib/Perl/Tidy/LineSink.pm b/lib/Perl/Tidy/LineSink.pm
index 511852fb..96c245f6 100644
--- a/lib/Perl/Tidy/LineSink.pm
+++ b/lib/Perl/Tidy/LineSink.pm
@@ -75,6 +75,21 @@ sub write_line {
     return;
 }
 
+sub write_tee_line {
+
+    # write line to tee file only...
+    # the original tee-on/tee-off method is being replaced because it 
+    # did not allow simultaneous tee-ing and deleting 
+
+    my ( $self, $line ) = @_;
+    chomp $line;
+    $line .= $self->{_line_separator};
+    unless ( $self->{_tee_file_opened} ) { $self->really_open_tee_file() }
+    my $fh_tee = $self->{_fh_tee};
+    print $fh_tee $line;
+    return;
+}
+
 sub tee_on {
     my $self = shift;
     $self->{_tee_flag} = 1;
-- 
2.39.5