"Fossies" - the Fresh Open Source Software Archive  

Source code changes of the file "lib/Image/ExifTool/Rawzor.pm" between
Image-ExifTool-12.57.tar.gz and Image-ExifTool-12.58.tar.gz

About: ExifTool is a platform-independent Perl library plus a command-line application for reading, writing and editing meta information in a wide variety of files.

Rawzor.pm  (Image-ExifTool-12.57)	:	Rawzor.pm  (Image-ExifTool-12.58)
skipping to change at line 17		skipping to change at line 17
#		#
# References: 1) http://www.rawzor.com/		# References: 1) http://www.rawzor.com/
#------------------------------------------------------------------------------		#------------------------------------------------------------------------------
package Image::ExifTool::Rawzor;		package Image::ExifTool::Rawzor;
use strict;		use strict;
use vars qw($VERSION);		use vars qw($VERSION);
use Image::ExifTool qw(:DataAccess :Utils);		use Image::ExifTool qw(:DataAccess :Utils);
$VERSION = '1.05';		$VERSION = '1.06';
# currently support this version Rawzor images		# currently support this version Rawzor images
my $implementedRawzorVersion = 199; # (up to version 1.99)		my $implementedRawzorVersion = 199; # (up to version 1.99)
# Rawzor-specific tags		# Rawzor-specific tags
%Image::ExifTool::Rawzor::Main = (		%Image::ExifTool::Rawzor::Main = (
GROUPS => { 2 => 'Other' },		GROUPS => { 2 => 'Other' },
VARS => { NO_ID => 1 },		VARS => { NO_ID => 1 },
NOTES => q{		NOTES => q{
Rawzor files store compressed images of other formats. As well as the		Rawzor files store compressed images of other formats. As well as the
skipping to change at line 141		skipping to change at line 141
substr($buf2, $end0, $end1 - $pos1) . ("\0" x ($pos2 - $end1)) .		substr($buf2, $end0, $end1 - $pos1) . ("\0" x ($pos2 - $end1)) .
substr($buf2, $end0 + $end1 - $pos1, $origSize - $pos2);		substr($buf2, $end0 + $end1 - $pos1, $origSize - $pos2);
undef $buf2;		undef $buf2;
# extract original information by calling ExtractInfo recursively		# extract original information by calling ExtractInfo recursively
$et->ExtractInfo(\$buff, { ReEntry => 1 });		$et->ExtractInfo(\$buff, { ReEntry => 1 });
undef $buff;		undef $buff;
}		}
# set OriginalFileType from FileType of original file		# set OriginalFileType from FileType of original file
# then change FileType and MIMEType to indicate a Rawzor image		# then change FileType and MIMEType to indicate a Rawzor image
my $origFileType = $$et{VALUE}{FileType};		my $origFileType = $$et{FileType};
if ($origFileType) {		if ($origFileType) {
$et->HandleTag($tagTablePtr, OriginalFileType => $origFileType);		$et->HandleTag($tagTablePtr, OriginalFileType => $origFileType);
$et->OverrideFileType('RWZ');		$et->OverrideFileType('RWZ');
} else {		} else {
$et->HandleTag($tagTablePtr, OriginalFileType => 'Unknown');		$et->HandleTag($tagTablePtr, OriginalFileType => 'Unknown');
$et->SetFileType();		$et->SetFileType();
}		}
return 1;		return 1;
}		}
End of changes. 2 change blocks.
2 lines changed or deleted		2 lines changed or added

---