diff options
Diffstat (limited to 'lib/Image/ExifTool/DICOM.pm')
-rw-r--r-- | lib/Image/ExifTool/DICOM.pm | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/lib/Image/ExifTool/DICOM.pm b/lib/Image/ExifTool/DICOM.pm index 147336a1..3bac7792 100644 --- a/lib/Image/ExifTool/DICOM.pm +++ b/lib/Image/ExifTool/DICOM.pm @@ -20,7 +20,7 @@ use strict; use vars qw($VERSION %uid); use Image::ExifTool qw(:DataAccess :Utils); -$VERSION = '1.22'; +$VERSION = '1.23'; # DICOM VR (Value Representation) format conversions my %dicomFormat = ( @@ -3668,7 +3668,7 @@ sub ProcessDICOM($$) } last if length $data < 8; # create new RAF object from inflated data stream - $raf = new File::RandomAccess(\$data); + $raf = File::RandomAccess->new(\$data); # re-read start of stream (now decompressed) $raf->Read($buff, 8) == 8 or last; $group = Get16u(\$buff, 0); |