Changeset 24107 for main/trunk/greenstone2/perllib/cpan/Image/ExifTool/JVC.pm

Timestamp:

2011-06-01T12:33:42+12:00 (13 years ago)

Author:

sjm84

Message:

Updating the ExifTool perl modules

File:

• main/trunk/greenstone2/perllib/cpan/Image/ExifTool/JVC.pm (modified) (4 diffs)

main/trunk/greenstone2/perllib/cpan/Image/ExifTool/JVC.pm

@@ -13 +13 @@
 use Image::ExifTool::Exif;
 
-$VERSION = '1.01';
+$VERSION = '1.02';
 
 sub ProcessJVCText($$$);
@@ -24 +24 @@
     NOTES => 'JVC EXIF maker note tags.',
     #0x0001 - almost always '2', but '3' for GR-DV700 samples
-    0x0002 => 'CPUVersions', #PH
+    0x0002 => { #PH
+        Name => 'CPUVersions',
+        # remove trailing nulls/spaces and split at remaining nulls/spaces
+        ValueConv => '$_=$val; s/(\s*\0)+$//; s/(\s*\0)+/, /g; $_',
+    },
     0x0003 => { #PH
         Name => 'Quality',
@@ -72 +76 @@
         return 0;
     }
-    my $pos = 0;
     while ($data =~ m/([A-Z]+):(.{3,4})/sg) {
         my ($tag, $val) = ($1, $2);
@@ -114 +117 @@
 =head1 AUTHOR
 
-Copyright 2003-2007, Phil Harvey (phil at owl.phy.queensu.ca)
+Copyright 2003-2011, Phil Harvey (phil at owl.phy.queensu.ca)
 
 This library is free software; you can redistribute it and/or modify it