Changeset 41 in flacrip for trunk/cd2flac

Timestamp:

05/08/15 20:00:01 (10 years ago)

Author:

peter

Message:

Use Audio::FLAC::Header to write the tags to the FLAC file instead of making
external calls to metaflac. In addition, rip_to_flac now returns a
DiscFlacFile object.

File:

• trunk/cd2flac (modified) (1 diff)

trunk/cd2flac

@@ -37 +37 @@
 $CD_DEVICE ||= '/dev/cdrom';
 
+my $tags = $BARCODE ? { BARCODE => $BARCODE } : {};
 my $ripper = Ripper->new({ device => $CD_DEVICE });
-$ripper->rip_to_flac($archive_flac);
-
-if ($BARCODE) {
-    print "Writing barcode\n";
-    system 'metaflac', '--set-tag', "BARCODE=$BARCODE", $archive_flac;
-}
+$ripper->rip_to_flac($archive_flac, $tags);
 
 print "Rip saved as $archive_flac\n";