print xmp if found

dk · Aug 26, 2024 · acf6877 · acf6877
1 parent ad0cdf1
commit acf6877
Showing 1 changed file with 5 additions and 0 deletions.
diff --git a/examples/exif.pl b/examples/exif.pl
@@ -27,6 +27,11 @@ sub usage
 my ($e, $ok) = Prima::Image::Exif->read_extras($i, tag_as_string => 1, load_thumbnail => 1);
 die "Cannot read exif data in $ARGV[0]: $ok\n" unless $e;
 
+if ( $ok eq 'XMP data') {
+	print $e;
+	exit;
+}
+
 for my $k ( sort keys %$e ) {
 	if ( $k eq 'thumbnail' ) {
 		my $i = $e->{$k};