exiftool-vendored.pl 12.84.0 → 12.89.0

package/bin/Changes

@@ -7,13 +7,104 @@ RSS feed: https://exiftool.org/rss.xml
 Note: The most recent production release is Version 12.76. (Other versions are
 considered development releases, and are not uploaded to MetaCPAN.)
 
+July 12, 2024 - Version 12.89
+
+  - Added new Sony lenses and updated decoding of some tags (thanks Jos Roost)
+  - Minor change to description of NKA files
+  - Fixed Archive::Zip problem in Windows executable version
+
+July 11, 2024 - Version 12.88 - "New Windows/MacOS packages"
+
+  - 
+
+NOTE: The install procedure for the Windows executable has changed!
+  - Windows EXE version now uses Oliver Betz's bundle with Strawberry Perl and
+    comes in 32- and 64-bit versions
+  - MacOS distribution now uses a flattened package
+  - Added ability to read/write deflate-compressed XMP in HEIC files
+  - Added a new Canon LensType (thanks Norbert Wasser)
+  - Added a new XMP-GCamera tag (thanks Herb)
+  - Added a new Nikon LensID
+  - Added a few new Canon AFAreaMode values (thanks Wernfried)
+  - Added config_files/onone.config to the distribution
+  - Decode timed accelerometer readings from NextBase 622GW videos
+  - Decode Pentax K-3III CameraOrentation (thanks Peter)
+  - Improved German translation for LensModel
+  - Enhanced the API StructFormat JSONQ setting to quote all JSON values, even
+    if they aren't in a structure
+  - Changed -geolocate option so specifying the Keys group writes
+    Keys:GPSPosition only if an input city is specified, and Keys:LocationName
+    only for input GPS coordinates
+  - Tweaked API Geolocation option recognized space-separated lat/lon even when
+    there is no decimal point in the numbers
+  - API Changes:
+      - Changed LargeFileSupport default to 2 and added a warning if a large
+        chunk is encountered.  Set to 1 to avoid the warning.
+
+June 13, 2024 - Version 12.87
+
+  - Added ability to write Google Container XMP tags (using the namespace prefix
+    'GContainer' to avoid conflict with the Google Device Container prefix)
+  - Decode a few new tags for the Canon EOS R5 (thanks John Moyer)
+  - Decode battery information for the Pentax K-3 III (thanks Peter)
+  - Decode RAFCompression from FujiFilm RAF images (thanks Albert Shan)
+  - Avoid reporting FileSize for pipes
+  - Updated Geolocation databases from current geonames.org files
+  - Enhanced Geolocation feature to allow lat/lon to be input with a space
+    separator instead of a comma
+  - Skip over Matroska Cluster if necessary to read Tags when referenced from
+    SeekHead
+  - Changed conversion for Matroska SeekID (now in hex with tag name in
+    brackets) and SeekPosition (now returns an absolute offset)
+  - Fixed problem writing XMP-Device:EarthPos coordinates
+  - Fixed typo in a value of Canon:DigitalLensOptimizer (thanks Martin B.)
+  - Fixed decoding of Matroska VideoScanType
+  - Fixed misleading error message when -o option was used to write to an
+    unsupported file type
+
+June 7, 2024 - Version 12.86
+
+  - Added a new value for a couple of Olympus tags (thanks Herb)
+  - Improved handling of ID3 user-defined tags
+  - Decode all JPEG segments from RICO box in Ricoh MOV videos
+  - Decode a few new values for some tags written by Canon EOS R cameras (thanks
+    John Moyer and Martin B.)
+  - Patched some Olympus WB_RBLevels tags to allow 4 values to be written as per
+    some newer models
+  - Fixed issue when writing IPTC date tags with a date/time value containing
+subseconds with 4 or more digits
+
+May 21, 2024 - Version 12.85
+
+  - Added GeolocationFeatureType tag
+  - Added read support for Nikon NKA and NXD adjustment files
+  - Added a new Apple:ImageCaptureType value, and changed another one
+  - Decode a few new Pentax tags
+  - Decode a few new Canon tags
+  - Decode some Ricoh Exif metadata from MOV videos
+  - Extract ID3 UserDefinedText and UserDefinedURL tags by name
+  - Make $advFmtSelf available for user-defined helper functions
+  - Documented API GeoDir pseudo option feature
+  - Tolerate pad byte at end of HIF file when writing
+  - Raised priority of FileName, BaseName, Directory and FileType tags so they
+    don't get hidden by other tags in the file which may have these names
+  - Changed decoding of QuickTime Rotation (irot) to correspond with
+    EXIF:Orientation (previously this was oddly reported as degrees of
+    counterclockwise rotation)
+  - Fixed a typo in the print conversion value for a couple of DPX tags
+  - Fixed problem writing some QuickTime tags with very large (> 16 MB) values
+  - Fixed bug in build_geolocation utility that resulted in incorrect population
+    numbers when run under ActivePerl
+
 Apr. 23, 2024 - Version 12.84
 
   - Added ability to read speed and accuracy_horizontal when geotagging from
     OpenTracks GPX files
   - Decode a few more Apple tags and a new CanonVRD tag
-  - Enhanced Geolocation option with the ability to return any number of nearby
+  - Enhanced Geolocation feature with the ability to return any number of nearby
     cities
+  - Allow coordinates to be entered without comma separator for the Geolocation
+    feature as long as both coordinates have a decimal point
   - Fixed long-standing bug in Windows version that didn't properly handle dates
     older than 50 years when writing FileModifyDate or FileCreateDate
   - Fixed API TimeZone option to work in Windows
@@ -21,8 +112,8 @@ Apr. 23, 2024 - Version 12.84
     which have print conversions
   - Fixed problem where a new subregion couldn't be added through a user-defined
     Geolocation database entry
-  - Fixed problem where GeolocFeature option didn't work for some features if a
-    user-generated custom database was used
+  - Fixed problem where the API GeolocFeature option didn't work for some
+    features if a user-generated custom database was used
 
 Apr. 18, 2024 - Version 12.83
 

package/bin/MANIFEST

@@ -28,6 +28,7 @@ config_files/frameCount.config
 config_files/gps2utm.config
 config_files/guano.config
 config_files/nksc.config
+config_files/onone.config
 config_files/photoshop_paths.config
 config_files/picasa_faces.config
 config_files/pix4d.config

package/bin/META.json

@@ -50,5 +50,5 @@
       }
    },
    "release_status" : "stable",
-   "version" : "12.84"
+   "version" : "12.89"
 }

package/bin/META.yml

@@ -3,32 +3,32 @@ abstract: 'Read and write meta information'
 author:
   - 'Phil Harvey (philharvey66 at gmail.com)'
 build_requires:
-  ExtUtils::MakeMaker: 0
+  ExtUtils::MakeMaker: '0'
 configure_requires:
-  ExtUtils::MakeMaker: 0
+  ExtUtils::MakeMaker: '0'
 dynamic_config: 0
 generated_by: 'ExtUtils::MakeMaker version 7.34, CPAN::Meta::Converter version 2.143240, CPAN::Meta::Converter version 2.133380'
 license: perl
 meta-spec:
   url: http://module-build.sourceforge.net/META-spec-v1.4.html
-  version: 1.4
+  version: '1.4'
 name: Image-ExifTool
 no_index:
   directory:
     - t
     - inc
 recommends:
-  Archive::Zip: 0
-  Compress::Raw::Lzma: 0
-  Compress::Zlib: 0
-  Digest::MD5: 0
-  Digest::SHA: 0
-  IO::Compress::Brotli: 0
-  IO::Compress::RawDeflate: 0
-  IO::Uncompress::Brotli: 0
-  IO::Uncompress::RawInflate: 0
-  POSIX::strptime: 0
-  Time::HiRes: 0
+  Archive::Zip: '0'
+  Compress::Raw::Lzma: '0'
+  Compress::Zlib: '0'
+  Digest::MD5: '0'
+  Digest::SHA: '0'
+  IO::Compress::Brotli: '0'
+  IO::Compress::RawDeflate: '0'
+  IO::Uncompress::Brotli: '0'
+  IO::Uncompress::RawInflate: '0'
+  POSIX::strptime: '0'
+  Time::HiRes: '0'
 requires:
-  perl: 5.004
-version: 12.84
+  perl: '5.004'
+version: '12.89'

package/bin/README

@@ -14,50 +14,50 @@ supported by ExifTool (r = read, w = write, c = create):
 
   File Types
   ------------+-------------+-------------+-------------+------------
-  360   r/w   | DOCX  r     | ITC   r     | O     r     | RSRC  r
-  3FR   r     | DPX   r     | J2C   r     | ODP   r     | RTF   r
-  3G2   r/w   | DR4   r/w/c | JNG   r/w   | ODS   r     | RW2   r/w
-  3GP   r/w   | DSS   r     | JP2   r/w   | ODT   r     | RWL   r/w
-  7Z    r     | DV    r     | JPEG  r/w   | OFR   r     | RWZ   r
-  A     r     | DVB   r/w   | JSON  r     | OGG   r     | RM    r
-  AA    r     | DVR-MS r    | JXL   r/w   | OGV   r     | SEQ   r
-  AAC   r     | DYLIB r     | K25   r     | ONP   r     | SKETCH r
-  AAE   r     | EIP   r     | KDC   r     | OPUS  r     | SO    r
-  AAX   r/w   | EPS   r/w   | KEY   r     | ORF   r/w   | SR2   r/w
-  ACR   r     | EPUB  r     | LA    r     | ORI   r/w   | SRF   r
-  AFM   r     | ERF   r/w   | LFP   r     | OTF   r     | SRW   r/w
-  AI    r/w   | EXE   r     | LIF   r     | PAC   r     | SVG   r
-  AIFF  r     | EXIF  r/w/c | LNK   r     | PAGES r     | SWF   r
-  APE   r     | EXR   r     | LRV   r/w   | PBM   r/w   | THM   r/w
-  ARQ   r/w   | EXV   r/w/c | M2TS  r     | PCD   r     | TIFF  r/w
-  ARW   r/w   | F4A/V r/w   | M4A/V r/w   | PCX   r     | TORRENT r
-  ASF   r     | FFF   r/w   | MACOS r     | PDB   r     | TTC   r
-  AVI   r     | FITS  r     | MAX   r     | PDF   r/w   | TTF   r
-  AVIF  r/w   | FLA   r     | MEF   r/w   | PEF   r/w   | TXT   r
-  AZW   r     | FLAC  r     | MIE   r/w/c | PFA   r     | VCF   r
-  BMP   r     | FLIF  r/w   | MIFF  r     | PFB   r     | VNT   r
-  BPG   r     | FLV   r     | MKA   r     | PFM   r     | VRD   r/w/c
-  BTF   r     | FPF   r     | MKS   r     | PGF   r     | VSD   r
-  C2PA  r     | FPX   r     | MKV   r     | PGM   r/w   | WAV   r
-  CHM   r     | GIF   r/w   | MNG   r/w   | PLIST r     | WDP   r/w
-  COS   r     | GLV   r/w   | MOBI  r     | PICT  r     | WEBP  r/w
-  CR2   r/w   | GPR   r/w   | MODD  r     | PMP   r     | WEBM  r
-  CR3   r/w   | GZ    r     | MOI   r     | PNG   r/w   | WMA   r
-  CRM   r/w   | HDP   r/w   | MOS   r/w   | PPM   r/w   | WMV   r
-  CRW   r/w   | HDR   r     | MOV   r/w   | PPT   r     | WPG   r
-  CS1   r/w   | HEIC  r/w   | MP3   r     | PPTX  r     | WTV   r
-  CSV   r     | HEIF  r/w   | MP4   r/w   | PS    r/w   | WV    r
-  CUR   r     | HTML  r     | MPC   r     | PSB   r/w   | X3F   r/w
-  CZI   r     | ICC   r/w/c | MPG   r     | PSD   r/w   | XCF   r
-  DCM   r     | ICO   r     | MPO   r/w   | PSP   r     | XISF  r
-  DCP   r/w   | ICS   r     | MQV   r/w   | QTIF  r/w   | XLS   r
-  DCR   r     | IDML  r     | MRC   r     | R3D   r     | XLSX  r
-  DFONT r     | IIQ   r/w   | MRW   r/w   | RA    r     | XMP   r/w/c
-  DIVX  r     | IND   r/w   | MXF   r     | RAF   r/w   | ZIP   r
-  DJVU  r     | INSP  r/w   | NEF   r/w   | RAM   r     |
-  DLL   r     | INSV  r     | NKSC  r/w   | RAR   r     |
-  DNG   r/w   | INX   r     | NRW   r/w   | RAW   r/w   |
-  DOC   r     | ISO   r     | NUMBERS r   | RIFF  r     |
+  360   r/w   | DOCX  r     | ITC   r     | NUMBERS r   | RAW   r/w
+  3FR   r     | DPX   r     | J2C   r     | NXD   r     | RIFF  r
+  3G2   r/w   | DR4   r/w/c | JNG   r/w   | O     r     | RSRC  r
+  3GP   r/w   | DSS   r     | JP2   r/w   | ODP   r     | RTF   r
+  7Z    r     | DV    r     | JPEG  r/w   | ODS   r     | RW2   r/w
+  A     r     | DVB   r/w   | JSON  r     | ODT   r     | RWL   r/w
+  AA    r     | DVR-MS r    | JXL   r/w   | OFR   r     | RWZ   r
+  AAC   r     | DYLIB r     | K25   r     | OGG   r     | RM    r
+  AAE   r     | EIP   r     | KDC   r     | OGV   r     | SEQ   r
+  AAX   r/w   | EPS   r/w   | KEY   r     | ONP   r     | SKETCH r
+  ACR   r     | EPUB  r     | LA    r     | OPUS  r     | SO    r
+  AFM   r     | ERF   r/w   | LFP   r     | ORF   r/w   | SR2   r/w
+  AI    r/w   | EXE   r     | LIF   r     | ORI   r/w   | SRF   r
+  AIFF  r     | EXIF  r/w/c | LNK   r     | OTF   r     | SRW   r/w
+  APE   r     | EXR   r     | LRV   r/w   | PAC   r     | SVG   r
+  ARQ   r/w   | EXV   r/w/c | M2TS  r     | PAGES r     | SWF   r
+  ARW   r/w   | F4A/V r/w   | M4A/V r/w   | PBM   r/w   | THM   r/w
+  ASF   r     | FFF   r/w   | MACOS r     | PCD   r     | TIFF  r/w
+  AVI   r     | FITS  r     | MAX   r     | PCX   r     | TORRENT r
+  AVIF  r/w   | FLA   r     | MEF   r/w   | PDB   r     | TTC   r
+  AZW   r     | FLAC  r     | MIE   r/w/c | PDF   r/w   | TTF   r
+  BMP   r     | FLIF  r/w   | MIFF  r     | PEF   r/w   | TXT   r
+  BPG   r     | FLV   r     | MKA   r     | PFA   r     | VCF   r
+  BTF   r     | FPF   r     | MKS   r     | PFB   r     | VNT   r
+  C2PA  r     | FPX   r     | MKV   r     | PFM   r     | VRD   r/w/c
+  CHM   r     | GIF   r/w   | MNG   r/w   | PGF   r     | VSD   r
+  COS   r     | GLV   r/w   | MOBI  r     | PGM   r/w   | WAV   r
+  CR2   r/w   | GPR   r/w   | MODD  r     | PLIST r     | WDP   r/w
+  CR3   r/w   | GZ    r     | MOI   r     | PICT  r     | WEBP  r/w
+  CRM   r/w   | HDP   r/w   | MOS   r/w   | PMP   r     | WEBM  r
+  CRW   r/w   | HDR   r     | MOV   r/w   | PNG   r/w   | WMA   r
+  CS1   r/w   | HEIC  r/w   | MP3   r     | PPM   r/w   | WMV   r
+  CSV   r     | HEIF  r/w   | MP4   r/w   | PPT   r     | WPG   r
+  CUR   r     | HTML  r     | MPC   r     | PPTX  r     | WTV   r
+  CZI   r     | ICC   r/w/c | MPG   r     | PS    r/w   | WV    r
+  DCM   r     | ICO   r     | MPO   r/w   | PSB   r/w   | X3F   r/w
+  DCP   r/w   | ICS   r     | MQV   r/w   | PSD   r/w   | XCF   r
+  DCR   r     | IDML  r     | MRC   r     | PSP   r     | XISF  r
+  DFONT r     | IIQ   r/w   | MRW   r/w   | QTIF  r/w   | XLS   r
+  DIVX  r     | IND   r/w   | MXF   r     | R3D   r     | XLSX  r
+  DJVU  r     | INSP  r/w   | NEF   r/w   | RA    r     | XMP   r/w/c
+  DLL   r     | INSV  r     | NKA   r     | RAF   r/w   | ZIP   r
+  DNG   r/w   | INX   r     | NKSC  r/w   | RAM   r     |
+  DOC   r     | ISO   r     | NRW   r/w   | RAR   r     |
 
   Meta Information
   ----------------------+----------------------+---------------------
@@ -109,8 +109,8 @@ your home directory, then you would type the following commands in a
 terminal window to extract and run ExifTool:
 
   cd ~/Desktop
-  gzip -dc Image-ExifTool-12.84.tar.gz | tar -xf -
-  cd Image-ExifTool-12.84
+  gzip -dc Image-ExifTool-12.89.tar.gz | tar -xf -
+  cd Image-ExifTool-12.89
   ./exiftool t/images/ExifTool.jpg
 
 Note:  These commands extract meta information from one of the test images. 
@@ -209,6 +209,7 @@ distribution package:
     gps2utm.config            - Generate UTM coordinate tags from GPS info
     guano.config              - Decode individual tags from Guano metadata
     nksc.config               - Decode tags in Nikon ViewNX NKSC files
+    onone.config              - Definitions for writing On1 XMP tags
     photoshop_paths.config    - For extracting or copying Photoshop paths
     picasa_faces.config       - Convert from Picasa to MWG/MP face regions
     pix4d.config              - Definitions for writing Pix4D XMP tags

package/bin/build_geolocation

@@ -12,6 +12,10 @@
 #               2024-04-15 - PH Clean up and add options for public release
 #               2024-04-22 - PH Increased number of possible feature codes from
 #                               32 to 64. Convert backslashes in directory names
+#               2024-04-24 - PH Fixed problem with population exponent when run
+#                               under ActivePerl
+#               2024-04-29 - PH Added feature types and default to db v1.03
+#               2024-06-13 - PH Tweaked case of imported feature types
 #
 # Notes:        Requires these files from https://download.geonames.org/export/
 #
@@ -19,6 +23,7 @@
 #               countryInfo.txt
 #               admin1CodesASCII.txt
 #               admin2Codes.txt
+#               featureCodes_XX.txt (optional)
 #               alternateNamesV2.txt (optional)
 #
 # Output datbase format (Geolocation.dat):
@@ -54,7 +59,7 @@
 #       1. Time zone name, terminated by newline
 #   "\0\0\0\0\x05" (feature codes added in v1.03)
 #   Feature codes:
-#       1. Feature code, terminated by newline
+#       1. Feature code, optional space-followed-by-feature-name, then newline
 #   "\0\0\0\0\0"
 #
 # Feature Codes v1.02: (see http://www.geonames.org/export/codes.html#P for descriptions)
@@ -68,12 +73,12 @@
 
 use strict;
 
-my $dbVer        = '1.02'; # database version
-
+my $dbVer        = '1.03';                  # default output database version
 my $dbFile       = 'allCountries.txt';      # default database file
 my $countryFile  = 'countryInfo.txt';       # mandatory country names file
 my $regionFile   = 'admin1CodesASCII.txt';  # mandatory region names file
 my $admin2File   = 'admin2Codes.txt';       # mandatory subregion names file
+my $featureFile  = 'featureCodes_en.txt';   # optional feature names file
 my $altNamesFile = 'alternateNamesV2.txt';  # optional alternate names file
 my $outFile      = 'Geolocation.dat';       # output ExifTool database file
 my $outAltNames  = 'AltNames.dat';          # output alternate names file
@@ -103,6 +108,7 @@ my @fc103 = qw(
 my $i = 0;
 my @featureCodes = $dbVer eq '1.02' ? @fc102 : @fc103;
 my %featureCodes = map { $_ => $i++ } @featureCodes;
+my %featureNames;
 
 my ($dbfile, @dbfiles, $outDir, $verbose, $noLang, %needRgn);
 my %optArgs = ( p => 1, c => 1, cp => 1, l => 1, o => 1, ver => 1 );
@@ -203,8 +209,9 @@ Syntax:       build_geolocation [OPTIONS] [DBFILE] ...
 Options:
   DBFILE    - Input database file name or directory.  Multiple input database
               files may be specified.  The -p, -c and -cp options apply to
-              the database that comes after them on the command line.
-              Default is "$dbFile".
+              the database that comes after them on the command line.  The
+              other input files are assumed to be in the same directory as
+              the first database file.  Default is "$dbFile".
   -p POP    - Minimum population for cities to include.  POP may be a number
               or be of the form "CC[,C2...]=###" to set different limits for
               specific countries/regions, where CC and C2 are country codes
@@ -240,12 +247,13 @@ Options:
   -h        - Show this help.
 
 Input files (download from https://download.geonames.org/export/dump/):
-  allCountries.txt      - default database file (smaller files with names
+  $dbFile      - default database file (smaller files with names
                           like "cities###.txt" may be specified instead)
-  countryInfo.txt       - mandatory country names file
-  admin1CodesASCII.txt  - mandatory region names file
-  admin2Codes.txt       - mandatory subregion names file
-  alternateNamesV2.txt  - optional alternate names file (must exist to
+  $countryFile       - mandatory country names file
+  $regionFile  - mandatory region names file
+  $admin2File       - mandatory subregion names file
+  $featureFile   - optional feature codes file(s)
+  $altNamesFile  - optional alternate names file (must exist to
                           to generate $outAltNames and $geoLang files)
 
 Output files:
@@ -374,7 +382,7 @@ my @supportedLangs = qw(cs de en-ca en-gb es fi fr it ja ko nl pl ru sk sv tr zh
 
 # supported country-specific languages
 my %ccLang = ( TW => 'zh', CN => 'zh', CA => 'en', GB => 'en' );
-my (%lang, %haveCountry, %cityFlags, %rgnFlags, %subFlags, %ccFlags, %flags);
+my (%lang, %featureLang, %haveCountry, %cityFlags, %rgnFlags, %subFlags, %ccFlags, %flags);
 my (%haveRegion, %haveSubRgn, $filesize, $percent);
 
 sub GetFileSize($)
@@ -386,7 +394,8 @@ sub GetFileSize($)
     return $size;
 }
 
-# pre-scan database to determine which countries, regions and subregions we will be using
+# pre-scan database to determine which countries, regions subregions and
+# feature codes we will be using
 foreach $dbfile (@dbfiles) {
     my $database = $$dbfile{file};
     my $upgraded;
@@ -422,7 +431,7 @@ foreach $dbfile (@dbfiles) {
         }
         # keep regardless of population
         if ($needRgn{$cc} and $$dbfile{keep}{"$cc$rgn"}) {
-            $keep = $$dbfile{keep}{"$cc$rgn"}{$code};#TEST
+            $keep = $$dbfile{keep}{"$cc$rgn"}{$code};
         } elsif ($$dbfile{keep}{$cc}) {
             $keep = $$dbfile{keep}{$cc}{$code};
         } else {
@@ -462,9 +471,28 @@ foreach $dbfile (@dbfiles) {
     warn "Some feature codes not supported by version 1.02, writing as 1.03 instead.\n" if $upgraded;
 }
 
+# read feature names
+if (open INFILE, '<', "$dbdir/$featureFile") {
+    print "Reading $dbdir/$featureFile\n";
+    while (<INFILE>) {
+        my @items = split /\t/;
+        $items[0] =~ s/^.\.//;  # remove feature group and "." separator
+        next unless $featureCodes{$items[0]};
+        my $name = ucfirst $items[1];
+        $name =~ s/ ([a-z])/ \U$1/g;
+        $name =~ s/(.)\b(Of|Or|A|An|On|In|The|By|For|And)\b/$1\L$2/g;
+        $featureNames{$items[0]} = $name;
+    }
+    close INFILE;
+} else {
+    print "Not found: $dbdir/$featureFile\n";
+    print "--> Not storing feature type names\n";
+}
+
 # read country names
 $i = 0;
 open INFILE, '<', "$dbdir/$countryFile" or die "Error opening $dbdir/$countryFile\n";
+print "Reading $dbdir/$countryFile\n";
 while (<INFILE>) {
     next if /^#/;
     my @items = split /\t/;
@@ -479,6 +507,7 @@ die "Too many countries!\n" if $i > 0x100;  # (no default 0 entry)
 # read region (admin1) names
 $i = 0;
 open REGION, '<', "$dbdir/$regionFile" or die "Error opening $dbdir/$regionFile\n";
+print "Reading $dbdir/$regionFile\n";
 while (<REGION>) {
     chomp;
     my @items = split /\t/;
@@ -494,6 +523,7 @@ die "Too many regions!\n" if $i > 0x0fff;   # (account for default 0 entry)
 # read subregion (admin2) names
 $i = 0;
 open ADMIN2, '<', "$dbdir/$admin2File" or die "Error opening $dbdir/$admin2File\n";
+print "Reading $dbdir/$admin2File\n";
 while (<ADMIN2>) {
     chomp;
     my @items = split /\t/;
@@ -544,8 +574,35 @@ if (not $noLang and open INFILE, '<', "$dbdir/$altNamesFile") {
     }
     print "\b\b\b\bDone.\n";
     close INFILE;
+    # read alternate feature names
+    if (%featureNames) {
+        my $lng;
+        foreach $lng (@languages) {
+            next if $lng eq 'en' or not $languages{$lng};
+            my $file = "$dbdir/$featureFile";
+            $file =~ s/_en\./_$lng./ or next;
+            next unless open INFILE, '<', $file;
+            print "Reading $file\n";
+            while (<INFILE>) {
+                my @items = split /\t/;
+                $items[0] =~ s/^.\.//;  # remove feature group and "." separator
+                next unless $featureNames{$items[0]};
+                utf8::decode($items[1]);
+                my $name = ucfirst $items[1];
+                $name =~ s/ (.)/ \U$1/g;
+                # change $name back to byte string
+                if ($] >= 5.006 and (eval { require Encode; Encode::is_utf8($name) } or $@)) {
+                    $name = $@ ? pack('C*',unpack($] < 5.010000 ? 'U0C*' : 'C0C*',$name)) : Encode::encode('utf8',$name);
+                }
+                next if $name eq $featureNames{$items[0]};
+                $featureLang{$lng}{$items[0]} = $name;
+            }
+            close INFILE;
+        }
+    }
 } else {
-    print "Not writing alternate languages ($dbdir/$altNamesFile not found)\n";
+    print "Not found: $dbdir/$altNamesFile\n--> " unless $noLang;
+    print "Not writing alternate languages\n";
     $noLang = 1;
 }
 
@@ -554,7 +611,7 @@ my (%coords, %langLookups);
 foreach $dbfile (@dbfiles) {
     my $database = $$dbfile{file};
 
-    print "Processing $database...   0%";
+    print "Processing database entries...   0%";
     my $i = 0;
     my $num = scalar @{$$dbfile{kept}};
 
@@ -623,6 +680,7 @@ foreach (sort { $a cmp $b } keys %coords) {
     my $items = $coords{$_};
     # @$items=(0.lat,1.lon,2.city,3.cc,4.rgn,5.admin2,6.population,7.timezone,8.feature code,9.alt names)
     my $iCC = $orderCC{$$items[3]};
+    defined $iCC or warn("Unknown country code $$items[3]\n"), next;
     my $iRgn = $orderRgn{"$$items[3]$$items[4]"} || 0;
     my $iSub = $orderSub{"$$items[3]$$items[4].$$items[5]"} || 0;
     my $tn = $tz{$$items[7]};
@@ -631,9 +689,12 @@ foreach (sort { $a cmp $b } keys %coords) {
         $tn = $tz{$$items[7]} = $tzNum++;
     }
     # convert population to our binary format
-    my $pop = sprintf('%.1e',$$items[6]); # format: "3.1e+04"
+    # Note: format in ActivePerl is "3.1e+004", but "3.1+04" in other Perls,
+    # but other Perls will round 34500 to "3.4e+04", so add 1 to get "3.5e+04"
+    $$items[6] += 1 if $$items[6] > 100 and not $$items[6] % 10;
+    my $pop = sprintf('%.1e',$$items[6]);
     # pack CC, population and region index into a 32-bit integer
-    my $code = ($iCC << 24) | (substr($pop,6,1)<<20) | (substr($pop,0,1)<<16) | (substr($pop,2,1)<<12) | $iRgn;
+    my $code = ($iCC << 24) | (substr($pop,-1,1)<<20) | (substr($pop,0,1)<<16) | (substr($pop,2,1)<<12) | $iRgn;
     $fcodes{$$items[8]} = ($fcodes{$$items[8]} || 0) + 1;
     my $fc = $featureCodes{$$items[8]} || 0;
     # store high bit of timezone index
@@ -761,8 +822,12 @@ print OUTFILE $_,"\n" foreach @tz;
 
 print OUTFILE "\0\0\0\0\x05\n"; # section terminator
 
-# write feature codes
-print OUTFILE $_,"\n" foreach @featureCodes;
+# write feature codes and optional names
+foreach (@featureCodes) {
+    print OUTFILE $_;
+    print OUTFILE ' ', $featureNames{$_} if $featureNames{$_};
+    print OUTFILE "\n";
+}
 
 # write terminator and close Geolocation.dat
 print OUTFILE "\0\0\0\0\0\n";   # file terminator
@@ -774,7 +839,9 @@ my $langSize = 0;
 my $langDir = "$outDir/$geoLang";
 # delete existing languages
 unlink <"$langDir/*.pm">;
-unless ($noLang) {
+if ($noLang) {
+    rmdir $langDir;
+} else {
     my $n = scalar(keys %langLookups);
     print "Writing $n language files to $outDir/$geoLang...\n";
     mkdir $langDir, 0777;
@@ -785,6 +852,7 @@ unless ($noLang) {
         my $lkup = $langLookups{$lng};
         my $file = "$myLng.pm";
         open OUT, ">$langDir/$file" or die "Error creating $file\n";
+        binmode OUT;
         print OUT "# Geolocation language translations for $myLng\n";
         print OUT "#\n# Based on Creative Commons database from geonames.org\n\n";
         print OUT "%Image::ExifTool::GeoLang::${myLng}::Translate = (\n";
@@ -842,6 +910,14 @@ unless ($noLang) {
                 }
             }
         }
+        if ($featureLang{$lng}) {
+            print OUT "\n\t# feature types\n";
+            foreach (sort keys %{$featureLang{$lng}}) {
+                my $ftype = $featureLang{$lng}{$_};
+                $ftype =~ s/'/\\'/g;
+                print OUT "\t$_ => '$ftype',\n" 
+            }
+        }
         print OUT ");\n\n1; #end\n";
         $langSize += tell OUT;
         close OUT;

package/bin/config_files/example.config

@@ -293,6 +293,11 @@
     NewXMPxxxStructX => { Name => 'SomeOtherName', Flat => 1 },
 );
 
+# the namespace may be registered so ExifTool generates the expected family 1
+# group names when reading if the UserDefined namespace uses a different prefix
+require Image::ExifTool::XMP;
+Image::ExifTool::XMP::RegisterNamespace(\%Image::ExifTool::UserDefined::xxx);
+
 # Adding a new MIE group requires a few extra definitions
 use Image::ExifTool::MIE;
 %Image::ExifTool::UserDefined::MIETest = (

package/bin/config_files/onone.config

@@ -0,0 +1,28 @@
+#------------------------------------------------------------------------------
+# File:         onone.config
+#
+# Description:  This config file defines On1 XMP tags for writing.
+#
+# Usage:        exiftool -config onone.config -UserFlag=VALUE FILE ...
+#
+# Requires:     ExifTool version 10.28 or later
+#
+# Revisions:    2024/07/10 - P. Harvey Created
+#------------------------------------------------------------------------------
+
+%Image::ExifTool::UserDefined = (
+  'Image::ExifTool::XMP::Main' => {
+    onone => {
+      SubDirectory => { TagTable => 'Image::ExifTool::UserDefined::onone' },
+    },
+  },
+);
+
+%Image::ExifTool::UserDefined::onone = (
+  GROUPS    => { 0 => 'XMP', 1 => 'XMP-onone', 2 => 'Other' },
+  NAMESPACE => { 'onone' => 'http://www.ononesoftware.com/vcb/1.0/' },
+  WRITABLE  => 'string',
+  UserFlag  => { },
+);
+
+1;  #end