rewrote Debugger module to output utf8 when input is utf8

diff --git a/lib/Perl/Tidy.pm b/lib/Perl/Tidy.pm
index 9cc42f5690dae5858a6bb7ad8fd631981281c149..90c3092a5e47c123da87f455a725a889d1182d42 100644 (file)
--- 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 5feca7bbe52b3731016f5f69da1c5d8ca8d7c074..38d431fab627a339124c8794c18e086a4a6c6695 100644 (file)
--- 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;
-