From: Steve Hancock <perltidy@users.sourceforge.net>
Date: Sun, 22 Mar 2020 20:56:19 +0000 (-0700)
Subject: rewrote Debugger module to output utf8 when input is utf8
X-Git-Tag: 20200619~122
X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=05a0bb60482dee952e2ace60099367a0000f9234;p=perltidy.git

rewrote Debugger module to output utf8 when input is utf8
---

diff --git a/lib/Perl/Tidy.pm b/lib/Perl/Tidy.pm
index 9cc42f56..90c3092a 100644
--- a/lib/Perl/Tidy.pm
+++ b/lib/Perl/Tidy.pm
@@ -1153,7 +1153,8 @@ EOM
         my $debugger_object = undef;
         if ( $rOpts->{DEBUG} ) {
             $debugger_object =
-              Perl::Tidy::Debugger->new( $fileroot . $dot . "DEBUG" );
+              Perl::Tidy::Debugger->new( $fileroot . $dot . "DEBUG",
+                $is_encoded_data );
         }
 
         #---------------------------------------------------------------
diff --git a/lib/Perl/Tidy/Debugger.pm b/lib/Perl/Tidy/Debugger.pm
index 5feca7bb..38d431fa 100644
--- a/lib/Perl/Tidy/Debugger.pm
+++ b/lib/Perl/Tidy/Debugger.pm
@@ -11,21 +11,24 @@ our $VERSION = '20200110.01';
 
 sub new {
 
-    my ( $class, $filename ) = @_;
+    my ( $class, $filename, $is_encoded_data ) = @_;
 
     return bless {
         _debug_file        => $filename,
         _debug_file_opened => 0,
         _fh                => undef,
+        _is_encoded_data   => $is_encoded_data,
     }, $class;
 }
 
 sub really_open_debug_file {
 
-    my $self       = shift;
-    my $debug_file = $self->{_debug_file};
-    my $fh;
-    unless ( $fh = IO::File->new("> $debug_file") ) {
+    my $self            = shift;
+    my $debug_file      = $self->{_debug_file};
+    my $is_encoded_data = $self->{_is_encoded_data};
+    my ( $fh, $filename ) =
+      Perl::Tidy::streamhandle( $debug_file, 'w', $is_encoded_data );
+    if ( !$fh ) {
         Perl::Tidy::Warn("can't open $debug_file: $!\n");
     }
     $self->{_debug_file_opened} = 1;
@@ -122,4 +125,3 @@ sub write_debug_entry {
     return;
 }
 1;
-