I found out that $ged->order will fix this issue.
On 02/10/2013 05:19 PM, Bill Anderson wrote:
> When I create a new, empty Gedcom object, add an individual, and then
> write the new Gedcom to a file, the trailer is in the wrong place.
>
> The trailer is after the header, not at the end of the file.
>
> Does anyone know why?
>
> 0 HEAD
> 1 SOUR Gedcom.pm
> 2 NAME Gedcom.pm
> 2 VERS 1.18
> 2 CORP Paul Johnson
> 3 ADDR http://www.pjcj.net
> 2 DATA
> 3 COPR Copyright 1998-2013, Paul Johnson (p...@pjcj.net)
> 1 NOTE
> 2 CONT This output was generated by Gedcom.pm.
> 2 CONT Gedcom.pm is Copyright 1999-2013, Paul Johnson (p...@pjcj.net)
> 2 CONT Version 1.18 - 24th January 2013
> 2 CONT
> 2 CONT Gedcom.pm is free. It is licensed under the same terms as
> Perl itself.
> 2 CONT
> 2 CONT The latest version of Gedcom.pm should be available from my
> homepage:
> 2 CONT http://www.pjcj.net
> 1 GEDC
> 2 VERS 5.5
> 2 FORM LINEAGE-LINKED
> 1 DATE Sun Feb 10 17:15:38 2013
> 1 CHAR ANSEL
> 1 SUBM @SUBM1@
>
> 0 @SUBM1@ SUBM
> 1 NAME Bill Anderson,,,
>
> 0 TRLR
>
> 0 @I1@ INDI
>
>
