From 186a31d20f5110d6313715be3e64ed18ec89e8c0 Mon Sep 17 00:00:00 2001
From: Steve Hancock <perltidy@users.sourceforge.net>
Date: Fri, 1 May 2020 06:28:02 -0700
Subject: [PATCH] convert LineSink.pm to use object format print calls

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

diff --git a/lib/Perl/Tidy/LineSink.pm b/lib/Perl/Tidy/LineSink.pm
index 96c245f6..5ae901c8 100644
--- a/lib/Perl/Tidy/LineSink.pm
+++ b/lib/Perl/Tidy/LineSink.pm
@@ -70,7 +70,7 @@ sub write_line {
     if ( $self->{_tee_flag} ) {
         unless ( $self->{_tee_file_opened} ) { $self->really_open_tee_file() }
         my $fh_tee = $self->{_fh_tee};
-        print $fh_tee $line;
+        $fh_tee->print($line);
     }
     return;
 }
@@ -78,15 +78,15 @@ sub write_line {
 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 
+    # 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;
+    $fh_tee->print($line);
     return;
 }
 
-- 
2.39.5