--- Image-ExifTool-11.85/lib/Image/ExifTool/WritePNG.pl	2020-01-02 14:08:56.000000000 +0200

+++ Image-ExifTool-11.85/lib/Image/ExifTool/WritePNG.pl	2020-04-22 16:59:33.594859908 +0300

@@ -68,7 +68,7 @@

 {

     my ($outfile, $rawType, $dataPt, $profile) = @_;

     my ($buff, $prefix, $chunk, $deflate);

-    if ($rawType ne $stdCase{exif} and eval { require Compress::Zlib }) {

+    if ($rawType ne $Image::ExifTool::PNG::stdCase{exif} and eval { require Compress::Zlib }) {

         $deflate = Compress::Zlib::deflateInit();

     }

     if (not defined $profile) {

@@ -79,7 +79,7 @@

             $prefix = "$rawType\0\0";

         } else {

             $chunk = $rawType;

-            if ($rawType eq $stdCase{zxif}) {

+            if ($rawType eq $Image::ExifTool::PNG::stdCase{zxif}) {

                 $prefix = "\0" . pack('N', length $$dataPt); # (proposed compressed EXIF)

             } else {

                 $prefix = '';   # standard EXIF

@@ -273,13 +273,13 @@

         );

         if ($dir eq 'IFD0') {

             next unless $specified;     # wait until specifically asked to write EXIF 'IFD0'

-            my $chunk = $stdCase{exif};

+            my $chunk = $Image::ExifTool::PNG::stdCase{exif};

             # (zxIf was not adopted)

             #if ($et->Options('Compress')) {

             #    if (eval { require Compress::Zlib }) {

-            #        $chunk = $stdCase{zxif};

+            #        $chunk = $Image::ExifTool::PNG::stdCase{zxif};

             #    } else {

-            #        $et->Warn("Creating uncompressed $stdCase{exif} chunk (Compress::Zlib not available)");

+            #        $et->Warn("Creating uncompressed $Image::ExifTool::PNG::stdCase{exif} chunk (Compress::Zlib not available)");

             #    }

             #}

             $et->VPrint(0, "Creating $chunk chunk:\n");

--- Image-ExifTool-11.85/lib/Image/ExifTool/WriteQuickTime.pl	2020-01-02 14:08:56.000000000 +0200

+++ Image-ExifTool-11.85/lib/Image/ExifTool/WriteQuickTime.pl	2020-04-22 17:28:51.054022957 +0300

@@ -1127,8 +1127,8 @@

                                 $len -= 16;

                                 $val = substr($buff, $pos, $len);

                                 # decode value (see QuickTime.pm for an explanation)

-                                if ($stringEncoding{$flags}) {

-                                    $val = $et->Decode($val, $stringEncoding{$flags});

+                                if ($Image::ExifTool::QuickTime::stringEncoding{$flags}) {

+                                    $val = $et->Decode($val, $Image::ExifTool::QuickTime::stringEncoding{$flags});

                                     $val =~ s/\0$// unless $$tagInfo{Binary};

                                     $flags = 0x01;  # write all strings as UTF-8

                                 } else {