diff options
Diffstat (limited to 'lib/Image/ExifTool/PDF.pm')
-rw-r--r-- | lib/Image/ExifTool/PDF.pm | 8 |
1 files changed, 7 insertions, 1 deletions
diff --git a/lib/Image/ExifTool/PDF.pm b/lib/Image/ExifTool/PDF.pm index be27ffa0..0553e886 100644 --- a/lib/Image/ExifTool/PDF.pm +++ b/lib/Image/ExifTool/PDF.pm @@ -21,7 +21,7 @@ use vars qw($VERSION $AUTOLOAD $lastFetched); use Image::ExifTool qw(:DataAccess :Utils); require Exporter; -$VERSION = '1.38'; +$VERSION = '1.39'; sub FetchObject($$$$); sub ExtractObject($$;$$); @@ -2007,6 +2007,12 @@ sub ProcessDict($$$$;$$) } # decode stream if necessary DecodeStream($et, $dict) or last; + if ($verbose > 2) { + $et->VPrint(2,"$$et{INDENT}$$et{DIR_NAME} stream data\n"); + my %parms = ( Prefix => $$et{INDENT} ); + $parms{MaxLen} = $verbose > 3 ? 1024 : 96 if $verbose < 5; + HexDump(\$$dict{_stream}, undef, %parms); + } # extract information from stream my %dirInfo = ( DataPt => \$$dict{_stream}, |