~ubuntu-branches/ubuntu/trusty/gmusicbrowser/trusty-proposed

« back to all changes in this revision

Viewing changes to m4aheader.pm

  • Committer: Package Import Robot
  • Author(s): Alessio Treglia
  • Date: 2013-10-05 19:11:53 UTC
  • mfrom: (1.2.6)
  • Revision ID: package-import@ubuntu.com-20131005191153-bri7aqyyf9oznfwn
Tags: 1.1.10-1
* New upstream release. (Closes: #724958)
* Refresh patches.
* Fix Vcs fields.
* Bump Standards.
* Fix typo in description. (Closes: #720760)

Show diffs side-by-side

added added

removed removed

Lines of Context:
57
57
}
58
58
 
59
59
sub _open
60
 
{       my $self=shift;;
 
60
{       my $self=shift;
61
61
        my $file=$self->{filename};
62
62
        open my$fh,'<',$file or warn "can't open $file : $!\n" and return undef;
63
63
        binmode $fh;
270
270
                if ($key eq '----')
271
271
                {       $key= substr($data->{mean},4).'----'.substr($data->{name},4);
272
272
                        $data=$data->{data};
 
273
                        next unless defined $data;
273
274
                }
274
275
                my $val= substr $data,8;
275
276
                my $flag=unpack 'x3C',$data;