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.