#4 Bug in Perl code: Database detection doesn't work properly

[Hadmut Danisch]

In Pilot.xs, Procedure PDA::Pilot::File * open, Line 3554
the detection of the Database type is based on the name of
the Unix file. It should be based on the name of the database stored
at the beginning of that file in the database header.