diff options
Diffstat (limited to 'lib/Image/ExifTool/Photoshop.pm')
-rw-r--r-- | lib/Image/ExifTool/Photoshop.pm | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/lib/Image/ExifTool/Photoshop.pm b/lib/Image/ExifTool/Photoshop.pm index 4184a5f9..c6d8c62e 100644 --- a/lib/Image/ExifTool/Photoshop.pm +++ b/lib/Image/ExifTool/Photoshop.pm @@ -28,7 +28,7 @@ use strict; use vars qw($VERSION $AUTOLOAD $iptcDigestInfo %printFlags); use Image::ExifTool qw(:DataAccess :Utils); -$VERSION = '1.69'; +$VERSION = '1.70'; sub ProcessPhotoshop($$$); sub WritePhotoshop($$$); @@ -70,7 +70,7 @@ my %thumbnailInfo = ( Protected => 1, RawConv => 'my $img=substr($val,0x1c); $self->ValidateImage(\$img,$tag)', ValueConvInv => q{ - my $et = new Image::ExifTool; + my $et = Image::ExifTool->new; my @tags = qw{ImageWidth ImageHeight FileType}; my $info = $et->ImageInfo(\$val, @tags); my ($w, $h, $type) = @$info{@tags}; @@ -892,7 +892,7 @@ sub ProcessDocumentData($$$) unless ($raf) { my $dataPt = $$dirInfo{DataPt}; my $start = $$dirInfo{DirStart} || 0; - $raf = new File::RandomAccess($dataPt); + $raf = File::RandomAccess->new($dataPt); $raf->Seek($start, 0) if $start; $dirLen = length $$dataPt - $start unless defined $dirLen; $et->VerboseDump($dataPt, Start => $start, Len => $dirLen, Base => $$dirInfo{Base}); |