Changeset 24107 for main/trunk/greenstone2/perllib/cpan/Image/ExifTool/Vorbis.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/Vorbis.pm (modified) (7 diffs)

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

@@ -16 +16 @@
 use Image::ExifTool qw(:DataAccess :Utils);
 
-$VERSION = '1.01';
+$VERSION = '1.03';
 
 my $MAX_PACKETS = 2;    # maximum packets to scan from each stream at start of file
@@ -55 +55 @@
         Format => 'int32u',
         RawConv => '$val || undef',
+        PrintConv => 'ConvertBitrate($val)',
     },
     13 => {
@@ -60 +61 @@
         Format => 'int32u',
         RawConv => '$val || undef',
+        PrintConv => 'ConvertBitrate($val)',
     },
     17 => {
@@ -65 +67 @@
         Format => 'int32u',
         RawConv => '$val || undef',
+        PrintConv => 'ConvertBitrate($val)',
     },
 );
@@ -151 +154 @@
             Image::ExifTool::AddTagToTable($tagTablePtr, $tag, { Name => $name });
         }
-        $exifTool->HandleTag($tagTablePtr, $tag, $val,
+        $exifTool->HandleTag($tagTablePtr, $tag, $exifTool->Decode($val, 'UTF8'),
             Index   => $index,
             DataPt  => $dataPt,
@@ -197 +200 @@
 
     # must first check for leading/trailing ID3 information
-    unless ($exifTool->{DONE_ID3}) {
+    unless ($exifTool->{DoneID3}) {
         require Image::ExifTool::ID3;
         Image::ExifTool::ID3::ProcessID3($exifTool, $dirInfo) and return 1;
@@ -330 +333 @@
 =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