Skip Menu |
 

This queue is for tickets about the Audio-FLAC-Header CPAN distribution.

Report information
The Basics
Id: 99968
Status: new
Priority: 0/
Queue: Audio-FLAC-Header

People
Owner: Nobody in particular
Requestors: rolf.ness [...] pvv.org
Cc:
AdminCc:

Bug Information
Severity: (no value)
Broken in: (no value)
Fixed in: (no value)



Subject: error writing metadata with arrays
Date: Sun, 2 Nov 2014 19:41:32 +0100
To: bug-Audio-FLAC-Header [...] rt.cpan.org
From: Rolf Rander Næss <rolf.ness [...] pvv.org>
Download (untitled) / with headers
text/plain 1.2k
The code for reading metadata specifically handles the case where there are several instances of the same tag. But when writing this back to the flac-file, it is written as 'ARRAY(0xXXXXXX). I have a suggested fix for this (but I am not a perl-programmer, so I just found something that worked for me, this is possibly not the most elegant way of doing it) *************** *** 221,236 **** foreach (keys %{$self->{'tags'}}) { unless (/^VENDOR$/) { ! if(ref($self->{'tags'}{$_}) eq 'ARRAY') { ! my $key = $_; ! for my $value (@{$self->{'tags'}->{$_}}) { ! push @tagString, $key . "=" . $value; ! $numTags++; ! } ! } else { ! push @tagString, $_ . "=" . $self->{'tags'}{$_}; ! $numTags++; ! } } } --- 221,228 ---- foreach (keys %{$self->{'tags'}}) { unless (/^VENDOR$/) { ! push @tagString, $_ . "=" . $self->{'tags'}{$_}; ! $numTags++; } }


This service is sponsored and maintained by Best Practical Solutions and runs on Perl.org infrastructure.

Please report any issues with rt.cpan.org to rt-cpan-admin@bestpractical.com.