← Back to branch summary

~ubuntu-branches/ubuntu/precise/libaudio-flac-header-perl/precise

« back to all changes in this revision

Viewing changes to Header.pm

  • Committer: Bazaar Package Importer
  • Author(s): Rene Mayorga, gregor herrmann, Rene Mayorga
  • Date: 2008-11-22 01:25:46 UTC
  • mfrom: (1.1.6 upstream)
  • Revision ID: james.westby@ubuntu.com-20081122012546-1ie7w6e2cjhvl2ra
Tags: 2.3-1

[ gregor herrmann ]
* debian/control: Changed: Switched Vcs-Browser field to ViewSVN
  (source stanza).

[ Rene Mayorga ]
* New upstream release
* debian/control
  + set debhelper version to 7
  + raise standards-versions to 3.8.0
  + add myself to uploaders
  + remove quilt from B-D
* debian/rules
  + use dh7 whit the help from dh-make-perl -R --dh7
* patches/uninitialized_comment; removed, included by upstream

Show diffs side-by-side

added added

removed removed

Lines of Context:
Header.pm
1
1
package Audio::FLAC::Header;
2
2
 
3
 
# $Id: Header.pm 25 2008-05-31 20:00:44Z dsully $
 
3
# $Id: Header.pm 26 2008-11-08 23:37:45Z dsully $
4
4
 
5
5
use strict;
6
6
use File::Basename;
7
7
 
8
 
our $VERSION = '2.2';
 
8
our $VERSION = '2.3';
9
9
our $HAVE_XS = 0;
10
10
 
11
11
# First four bytes of stream are always fLaC
171
171
                return $self->{'allpictures'} if exists($self->{'allpictures'});
172
172
        }
173
173
 
 
174
        # Also look for other types of images
 
175
        # http://flac.sourceforge.net/format.html#metadata_block_picture
 
176
        my @types = ($type, 4, 0, 5..20);
 
177
 
174
178
        # if the picture block exists, return it's content
175
 
        return $self->{'picture'}->{$type} if exists($self->{'picture'}->{$type});
 
179
        for (@types) {
 
180
                return $self->{'picture'}->{$_} if exists $self->{'picture'}->{$_};
 
181
        }
176
182
 
177
183
        # otherwise, return nothing
178
184
        return undef;