use Image::ExifTool::Fixup;
$fixup = new Image::ExifTool::Fixup;
# add a new fixup to a pointer at the specified offset in data
$fixup->AddFixup($offset);
# add a new Fixup object to the tree
$fixup->AddFixup($subFixup);
$fixup->{Start} += $shift1; # shift pointer offsets and values
$fixup->{Shift} += $shift2; # shift pointer values only
# recursively apply fixups to the specified data
$fixup->ApplyFixups(\$data);
$fixup->Dump(); # dump debugging information
$fixup->IsEmpty(); # return true if no offsets to fix
Maintains a hierarchical list of fixups so that the whole hierarchy can be shifted by a simple shift at the base. Hierarchy is collapsed to a linear list when ApplyFixups() is called.
This library is free software; you can redistribute it and/or modify it under the same terms as Perl itself.